odissei

Отправляю вам решение на поставленную мною задачу

procedure TForm1.Button1Click(Sender: TObject);
var i, N: Integer;
begin
if OpenDialog1.Execute then
with TStringList.Create do
try LoadFromFile(OpenDialog1.FileName);
stringgrid1.RowCount:=Count;
for i:=0 to Count-1 do begin
stringgrid1.Rows[i].CommaText:=Strings[i];
end
finally
end;

Добавлено через 1 минуту:
Flex256
Отправляю решение на поставленную мною задачу

procedure TForm1.Button1Click(Sender: TObject);
var i, N: Integer;
begin
if OpenDialog1.Execute then
with TStringList.Create do
try LoadFromFile(OpenDialog1.FileName);
stringgrid1.RowCount:=Count;
for i:=0 to Count-1 do begin
stringgrid1.Rows[i].CommaText:=Strings[i];
end
finally
end;