[Yurk@@@]

Вопрос решён

Код:

procedure TForm1.FormCreate(Sender: TObject);
var e,i,j,u,x,y:integer;
              t:textfile;
     StringGrid:array[1..3] of TStringGrid;
begin
  AssignFile(t,'C:\test.txt');
  Rewrite(t);
  j:=1;
  e:=0;
  for i:=0 to form1.ComponentCount-1 do
  if form1.Components[i] is TStringGrid then
    begin
      StringGrid[j]:=components[i] as TStringGrid;
      j:=j+1;
    end;
  for u:=1 to 3 do
    begin
    e:=e+1;
    for x:=0 to stringgrid[u].RowCount-1 do
    for y:=0 to stringgrid[u].ColCount-1 do
      begin

       StringGrid[u].Cells[x,y]:=inttostr(e);
        writeln(t,stringgrid[u].Cells[x,y]);
      end;
    end;
  closefile(t);
end;
end.