Stworzenie nowego katalogu i przejście do niego jeśli istnieje

jak napisać taki warunek? Stwórz folder o nazwie: folder

IdFTP1.MakeDir('folder');

jeżeli 'folder' stnieje to przejdź do niego

IdFTP1.ChangeDir('folder')

Gotowej funkcji chyba nie ma ale bez problemu można sobie napisać np:

function FTPDirectoryOrFileExists(const AFTP: TIdFTP; AName: string): Boolean;
begin
  try
  AFTP.List(nil, AName, False);
  result:= (AFTP.ListResult.Count > 0);
  except
    result:= False;
  end;
end;

i przykład użycia:

if not FTPDirectoryOrFileExists(IdFTP1, 'folder') then //jezeli folder nie istnieje
   IdFTP1.MakeDir('folder'); //to go utwórz
IdFTP1.ChangeDir('folder'); //przejdz do folderu

dziekuje ;) dziala

Za zakładanie multikont pan dima cośtam johny i teraz satanistyczny dopisek otrzyma bana.