Pobieranie i wysyłanie pliku przez TIdFTP

Witam.

Mam problem z pobieraniem i wysyłaniem pliku poprzez komponent TIdFTP.
Mam takie procedury:

 
function PolaczFTP:boolean;
begin
  with Form1.IdFTP do
  begin
   if Connected=False then
   begin
    Host:='nazwa';
    Username:='user';
    Password:='pass';
    if not Connected then
    begin
     Connect();
     result:=Connected
    end;
   end else
   begin
    result:=True;
   end;
  end;
end;

Połączenie jest realizowane prawidłowo problem jest w funkcjach wysyłania i pobierania - definicje poniżej:

 
procedure WyslijPlikFTP(Path:String;FileName:String);
var
Stream:TMemoryStream;
begin
 if (FileExists(Path+FileName)=True )then
 begin
  with Form1.IdFTP do
  begin
   if Connected then
   begin
    Stream:=TMemoryStream.Create;
    ChangeDir('TEST');
    Stream:=TMemoryStream.Create;
    Stream.LoadFromFile(Path+'\\'+FileName);
    Put(Stream,FileName);
    Stream.Free;
   end;
  end;
 end; 
end;

//////////////////////////////////////////////////////

procedure PobierzPlikFTP(Path:String;FileName:String);
var
Stream:TMemoryStream;
begin
 if (FileExists(Path+'\\'+FileName)=False)then
 begin
  with Form1.IdFTP do
  begin
   if Connected then
   begin
    Stream:=TMemoryStream.Create;
    ChangeDir('TEST');
    Get(FileName,Stream);
    Stream.SaveToFile(Path+'\\'+FileName);
    Stream.Free;
   end else
   begin
    Exit;
   end;
  end;
 end;
end;          

Podczas pobierania pliku program się zawiesza podczas wykonywania Get(FileName,Stream)

HELP.

Dokładnie kod wygląda na poprawny jak wspomniał @olesio po co podwójny \ w Delphi to żaden znak specjalny ale inna rzecz mnie bardziej zastanawia bo ścieżka z podwójnym czy nie chyba przejdzie tylko czy masz poprawne połączenie bo jeżeli np. serwer działa w trybie pasywnym to trzeba przed Connect ustawić Passive:= True; Nie ma żadnego komunikatu błędu?