1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button1Click(Sender: TObject);
begin
  AddMessage('Verbinden mit ' + Edit1.Text + #13#10, clGreen); //Das hier schafft er noch
  if Edit1.Text <> '' then                                     //und das auch, wenn kein Host angegeben wird, wird der
  begin                                                        //else-Teil ausgeführt wie er es soll...
    IdFTP1.Passive := true;
    IdFTP1.Host := 'ftp://' + Edit1.Text;
    IdFTP1.Username := Edit2.Text;
    IdFTP1.Password := MaskEdit1.Text;
    IdFTP1.Port := StrToInt(Edit4.Text);
    IdFTP1.Connect;
  end
  else
    AddMessage('Fehler: Bitte Host-Adresse angeben'#13#10, clRed);
end;