[angvelem]

Так проще:

Код:

procedure TForm1.Button4Click(Sender: TObject);
var
  F    : TextFile;
  I, J : Integer;
begin
  AssignFile(F, 'Valuesmatrix.txt');
  Rewrite(F);
  WriteLn(F, GrafVal.ColCount);
  WriteLn(F, GrafVal.RowCount);

  for J := 0 to GrafVal.RowCount - 1 do
  begin
    for I := 0 to GrafVal.ColCount - 1 do
      Write(F, GrafVal.Cells[I, J] + ' ');
    Writeln(f);
   end;
  CloseFile(F);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  F       : TextFile;
  Temp,
  Row, Col,
  I, J    : Integer;
  TempStr : String;
begin
  AssignFile(F, 'Valuesmatrix.txt');
  Reset(F);
  ReadLn(F, Temp);
  GrafVal.ColCount := Temp;
  ReadLn(F, Temp);
  GrafVal.RowCount := temp;

  for Row := 0 to GrafVal.RowCount - 1 do
  begin
    J := 1;
    ReadLn(F, TempStr);
    TempStr := Trim(TempStr);
    for Col := 0 to GrafVal.ColCount - 1 do
    begin
      I := PosEx(' ', TempStr, J);
      GrafVal.Cells[Col, Row] := Copy(TempStr, J, I - J);
      J := I + 1;
    end;
  end;
  CloseFile(F);
end;

Сейчас в файле Valuesmatrix.txt имеются ведущие пробелы, поэтому я поставил команду Trim.
Да, не забудьте добавить в Uses - StrUtils.