Fehler mit einer function!?!

[Plague]

Hallo,

ich habe das Problem, dass bei folgender Function der Fehler auftaucht: "Objekt oder Klassentyp erforderlich".

Delphi-Quellcode:

function StarteThread(Parameter : Pointer) : LongWord; StdCall;
var
  User : String;
  anz,i : Integer;
begin
  ActiveFormX.IdFTP1.Username := 'User';
  ActiveFormX.IdFTP1.Password := 'passwort';
  ActiveFormX.IdFTP1.Host := 'ftp://www.domain.de';
  ActiveFormX.IdFTP1.Connect;
  ActiveFormX.IdFTP1.ChangeDir('/html/Test-Upload');
  anz := Listbox1.Count-1;
for i := 0 to anz do begin
     ActiveFormX.Image1.Picture.LoadFromFile(Listbox1.Items.Strings[i]);
     ActiveFormX.IdFTP1.Put(Listbox1.Items.Strings[i],ExtractFileName(Listbox1.Items.Strings[i]));
     end;
     Sleep(0);
     ActiveFormX.IdFTP1.Quit;
     end;
end;

Der Fehler taucht in dieser Zeile auf:
ActiveFormX.IdFTP1.Username := 'User'; Was mache ich hier falsch?

Gruß
Thomas