TSearchRec SR;
int SRI;
SRI= FindFirst(FTPServFunc::TransLatePath(APath, ASender->HomeDir)+ "*.*", faAnyFile, SR);
while(SRI== 0)
{
	TIdFTPListItem *LFTPItem= ADirectoryListing->Add();
	LFTPItem->FileName= SR.Name;
	LFTPItem->Size= SR.Size;
	LFTPItem->ModifiedDate= FileDateToDateTime(SR.Time);
 
	if(SR.Attr== faDirectory)
		LFTPItem->ItemType= ditDirectory;
	else
		LFTPItem->ItemType= ditFile;
 
	SRI= FindNext(SR);
}
FindClose(SR);