[konsul_81]

вот так наверно правильней будет

Код:

rocedure TForm1.Button_LoadClick(Sender: TObject);
var
  L : TStringList;
  I : Integer;
begin
  L := TStringList.Create;
  L.LoadFromFile('Test.txt');
 StringGrid1.RowCount := L.Count+1;
 StringGrid1.ColCount := 2;
  For I := 0 To L.Count-1 Do
    Begin
       StringGrid1.Cells[0,i + 1] := Copy(L[i],1,Pos(',',L[i])-1);
       StringGrid1.Cells[1,i + 1] := Copy(L[i],Pos(',',L[i])+1,Length(L[i]));
    End;
  L.Free;
end;