[AlexSku]

Если между числами не запятые, а пробелы или табуляция, то:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: integer;
  rez: array[1..3, 1..4] of integer;
  i, j: integer;
  f: TextFile;
begin
AssignFile(f,'qw.txt');
reset(f);
  for i:=1 to 3 do
    for j:=1 to 4 do
    begin
      read(f,s);
      rez[i, j]:=s;
      StringGrid1.Cells[j,i]:= IntToStr(s);
    end;
CloseFile(f);
end;