problem z ftp

WITAM.
Mam problem z wyslaniem pliku na ftp... przez delphi i komponent NMFTP

procedure TForm1.Button1Click(Sender: TObject);
var
LocalFile: string;
begin
    if NMFTP1.Connected then
    NMFTP1.Disconnect
  else
    begin
      NMFTP1.Connect;
    end;
        LocalFile := 'tekst.txt';
        NMFTP1.Mode(MODE_ascii);
        NMFTP1.UploadUnique(LocalFile);
        NMFTP1.Disconnect;
end;

reszta ustawiona w komponencie czyli HOST, user, password...
podczas wywolania procedury pojawia sie 502 You are already legged in!

Ktos wie co to oznacza?

Rozumiem, ze on probuje mi przekazac , ze jestem juz zalogowany... ale dlaczego?...

po co to piszesz?

if NMFTP1.Connected then
NMFTP1.Disconnect

nie wystarczy

if not NMFTP1.Connected then NMFTP1.Connect;

?