Fik := FindFirst(Katalog + '*.*', faAnyFile, SR);
lKat := Fik;
while (Fik = 0) do
begin
Status.Caption := 'Wysyłanie pliku ' + IntToStr(lKat - Fik) + ' z ' + IntToStr(lKat);
FTP.Put(Katalog + SR.Name, SR.Name);
Fik := FindNext(SR);
end;
FindClose(SR);
Powyzszy kod, jak pewnie zauwazyliscie, wysyla wszystkie pliki z katalogu na serwer ftp. Ale jest w nim blad - nie moze znalezc ani jednego pliku, chociaz sciezka jest dobra. Co robic?