[OverFly]

Привет друзья!
Есть вопрос относительно компонента idFTP.
вот ошмёток кода:

Код:

function TForm1.GetFileFromFTP: string;
var IPFile:Tfilestream;
    IPName:array[0..25] of char;
const
 UrName:String = XXX;
 UrHost:String = 'XXXX';
 UrPassword:String = 'XXXXXX';
 label X;
begin
X: with (FTP) do try
   Username := UrName;
    Host := UrHost;
   Password := UrPassword;
if (not Connected) then
 Connect
  else
    begin
   Disconnect; goto X;
    end;
  except
   exit;
  end;
 
if (FTP.Connected) then
 begin
 try
  if (fileExists('SwInfo.pim')) then
   deletefile('SwInfo.pim');
       FTP.Get('SwInfo.pim','SwInfo1.pim');
     sleep(1000);
    IPFile:=Tfilestream.Create('SwInfo.pim',fmopenread);
   IPFile.Read(IPName, 24);
******* ну и так далее******
  end;
 end;

Я проследил выполнение кода и выяснил что на строке
FTP.Get('SwInfo.pim','SwInfo1.pim') код встаёт и всё. И загрузка ЦП при этом 50%, такое ощущение, что где-то выполняется бесконечный цикл.
Антифриз конечно помогает, но я не получаю желаемого результата.

Как скачать файл по FTP без косяков????????

[OverFly]

Неужели никто не знает???