Проверка нового файла на ФТП

[Квэнди]

Я читал уже, смотрел все примеры.

здорово. тогда что же вы хотите ?

[Aleksei]

кто может про коментировать каждую строку (что делает).

procedure TMainForm.ChageDir(DirName: string);
var
LS: TStringList;
begin
LS:=TStringList.Create;
try
IdFTP1.ChangeDir(DirName);
IdFTP1.TransferType:=ftASCII;
CurrentDirEdit.Text:=IdFTP1.Retriev eCurrentDir;
DirectoryListBox.Items.Clear;
IdFTP1.List(LS);
DirectoryListBox.Items.Assign(LS);
if DirectoryListBox.Items.Count>0
then
if AnsiPos('total', DirectoryListBox.Items[0])>0
then DirectoryListBox.Items.Delete(0);
finally
LS.Free;
end;
end;

procedure TMainForm.DirectoryListBoxDblClick( Sender: TObject);
var
Name: string;
begin
if not IdFTP1.Connected
then Exit;
Name:=IdFTP1.DirectoryListing.Items[DirectoryListBox.ItemIndex].FileName;
if IdFTP1.DirectoryListing.Items[DirectoryListBox.ItemIndex].ItemType=ditDirectory
then ChageDir(Name)
else
begin
IdFTP1.TransferType:=ftBinary;
BytesToTransfer:=IdFTP1.Size(Name);
end
end;

procedure TMainForm.DirectoryListBoxDrawItem( Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);

begin
if Assigned(IdFTP1.DirectoryListing) and (IdFTP1.DirectoryListing.Count>Inde x)
then
begin
DirectoryListBox.Canvas.FillRect(Re ct);
with IdFTP1.DirectoryListing.Items[Index] do
begin
DirectoryListBox.Canvas.TextOut(Rec t.Left, Rect.Top, FileName);
end;
end;
end;