for I := 0 to (NMFTP1.FTPDirectoryList.name.Count - 1) do
with NMFTP1.FTPDirectoryList do
begin
StringGrid1.Cells[0, I+1] := name;
StringGrid1.Cells[1, I+1] := Size;
StringGrid1.Cells[2, I+1] := ModifDate;
StringGrid1.Cells[3, I+1] := Attribute;
end;
end;