[lmikle]

Ять!!! Вот народ ленивый пошел...

Код:

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