Нужна помощь в решении задачи в Delphi

[AndrYxo]

И еще продолжения кода сохранения:

    procedure TForm6.BitBtn3Click(Sender: TObject);
var
   s :TStringlist;
   j:Integer;
   Str:String;
   posy, posx, i : Integer;

Begin
    with TSaveDialog.Create(Owner) do
    begin
       DefaultExt:='.txt';
       Filter:= 'файлы проекта|*.txt';
       if not Execute then exit;
       s:=TStringList.Create;
       s.Clear;
       for i:=0 to StringGrid4.RowCount-1 do
       begin
          Str := '' ;
          for j:=0 to StringGrid4.ColCount-1 do
              str:=str+StringGrid4.Cells[j, i]+' ';
          s.Add(Str);
       end;
       s.Add('T2');
       for i:=0 to StringGrid5.RowCount-1 do
       begin
          Str := '' ;
          for j:=0 to StringGrid5.ColCount-1 do
              str:=str+StringGrid5.Cells[j, i]+' ';
          s.Add(Str);
       end;
       s.Add('T3');
       for i:=0 to StringGrid6.RowCount-1 do
       begin
          Str := '' ;
          for j:=0 to StringGrid6.ColCount-1 do
              str:=str+StringGrid6.Cells[j, i]+' ';
          s.Add(Str);
       end;

       S.SaveToFile(FileName);
end;
    s.Free;
end;


procedure TForm6.BitBtn4Click(Sender: TObject);
var
   s :TStringlist;
   i,j,yd:Integer;
   Str:String;
   posy, posx, py: Integer;
   t1,t2,t3:boolean;


Begin
    t1:=true;
    t2:=false;
    t3:=false;
    with TOpenDialog.Create(Owner) do
    begin
    py:=0;
       DefaultExt:='.txt';
       Filter:= 'файлы проекта|*.txt';
       if not Execute then exit;
       s:=TStringList.Create;
       S.LoadFromFile(FileName);
       For posy := 1 to S.Count do
       begin
           posx := 0;
           Str := '';
           For i := 1 to Length(S.Strings[posy-1]) do
           begin
              if S.Strings[posy-1][i] <> ' ' then
              begin
                  Str := Str + S.Strings[posy-1][i];
                  if Str = 'T2' then
                  begin
                     t1:=false;
                     t2:=true;
                     py:=posy;
                  end;
                  if Str = 'T3' then
                  begin
                     t1:=false;
                     t2:=false;
                     t3:=true;
                     py:=posy;
                  end;
              end
              else
              begin
                 if t1= true then StringGrid4.Cells[posx, posy-1] := Str;
                 if t2 = true then StringGrid5.Cells[posx, posy-1-py] := Str;
                 if t3 = true then StringGrid6.Cells[posx, posy-1-py] := Str;
                 Str := '';
                 inc(posx);
              end;
           end;
       end;
    end;
    S.Free;
    end;

end.

Заранее спаибо - ато если я это всуну в пояснительную записку меня расстреляют 8)