diff --git a/source/connections.pas b/source/connections.pas
index bba11fe8..64bfa05b 100644
--- a/source/connections.pas
+++ b/source/connections.pas
@@ -1213,7 +1213,7 @@ end;
 
 procedure Tconnform.editHostChange(Sender: TObject);
 begin
-  editSSHhost.TextHint := TEdit(Sender).Text;
+  editSSHhost.TextHint := editHost.Text;
   Modification(Sender);
 end;