stringgrid и memo в txt

[Ernest027]

Всем привет!
Собственно вопрос: как из txt вытащить часть текста и засунуть в stringgrid, а часть в memo?
В txt таблицу из stringgrid и текст из memo добавляю так:

procedure TForm1.SaveStringGrid(StringGrid1: TStringGrid;
  const FileName: TFileName);
var
   f:    TextFile;
   i,j,k: Integer;
 begin
   AssignFile(f, FileName);
   Rewrite(f);
   with StringGrid1 do
   begin
     // Write number of Columns/Rows
    Writeln(f, ColCount);
     Writeln(f, RowCount);
     // loop through cells
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
         Writeln(F, Cells[i, k]);
 
  end;
   for j:=1 to sMemo1.Lines.Count do
Writeln(F, sMemo1.Lines[j-1]);
   CloseFile(F);
end;

А теперь самое интересное)
как вытащить memo из txt?)
таблицу засовываю в stringgrid так:

procedure TForm1.LoadStringGrid(StringGrid1: TStringGrid;
  const FileName: TFileName);
var
   f:          TextFile;
   iTmp, i,j,k: Integer;
   strTemp:    String;
 begin
   AssignFile(f, FileName);
   Reset(f);
   with StringGrid1 do
   begin
     // Get number of columns
    Readln(f, iTmp);
     ColCount := iTmp;
     // Get number of rows
    Readln(f, iTmp);
     RowCount := iTmp;
     // loop through cells & fill in values
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
       begin
         Readln(f, strTemp);
         Cells[i, k] := strTemp;
       end;
   end;
 
   CloseFile(f);
end;

Благодарю за помощь!

[Streletz]

Судя по коду, в текстовый файл Вы вначале записываете из StringGrid, а потом из Memo.
В чём проблема прочитать их в той же последовательности? Тем более, что размеры StringGrid Вы тоже сохраняете.

[Ernest027]

да, сначала из stringgrid'а, потом из мемо)
ну не пойму я как это сделать)

procedure TForm1.LoadStringGrid(StringGrid1: TStringGrid;
  const FileName: TFileName);
var
   f:          TextFile;
   iTmp, i,j,k: Integer;
   strTemp:    String;
 begin
   AssignFile(f, FileName);
   Reset(f);
   with StringGrid1 do
   begin
     // Get number of columns
    Readln(f, iTmp);
     ColCount := iTmp;
     // Get number of rows
    Readln(f, iTmp);
     RowCount := iTmp;
     // loop through cells & fill in values
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
       begin
         Readln(f, strTemp);
         Cells[i, k] := strTemp;
       end;
   end;
 Сюда вот надо что-то написать)))
   CloseFile(f);
end;

[evg_m]

Сюда вот надо что-то написать)))

SMemo1.Clear;
while not eof(f) do begin
 readln(f,strtemp);
 Smemo1.lines.add(strtemp);
end;

[Ernest027]

Огромнейшее Вам спасибо)