Delphi7 Перенос текста из Memo в StringGrid

uses
  Classes;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Sl : TStringList;
  S : String;
  i, Cnt : Integer;
begin
  //Создаём список. В этот список мы будем записывать значения полей, взятые из текущей строки.
  Sl := TStringList.Create;
  //Очистка Memo2. В Memo2 будем выводить результаты разбора строк.
  Memo2.Clear;
  //Обработка строк. Исходный текст записан в Memo1.
  //Первую строку пропускаем (i = 0) - там заголовки столбцов.
  for i := 0 + 1 to Memo1.Lines.Count - 1 do
  begin
    Sl.Clear;
    //Извлекаем из текста части и записываем их в список Sl.
    ExtractStrings([#9], [], PChar(Memo1.Lines[i]), Sl);
    //Выполняем разбор строки.
    S := '';
    Cnt := Sl.Count;
    //Здесь цикл repeat используется для замены оператора if с большой вложенностью.
    repeat
      Memo2.Lines.Add('----------');
      if 0 = Cnt then
        Break;
      Memo2.Lines.Add('Event = "' + Trim(Sl[0]) + '"');
      if 1 = Cnt then
        Break;
      Memo2.Lines.Add('Device = "' + Trim(Sl[1]) + '"');
      if 2 = Cnt then
        Break;
      Memo2.Lines.Add('Parameter = "' + Trim(Sl[2]) + '"');
      if 3 = Cnt then
        Break;
      Memo2.Lines.Add('Time = "' + Trim(Sl[3]) + '"');
      if 4 = Cnt then
        Break;
      Memo2.Lines.Add('Date = "' + Trim(Sl[4]) + '"');
      if 5 = Cnt then
        Break;
      Memo2.Lines.Add('User\Origin = "' + Trim(Sl[5]) + '"');
    until True;
  end;
  //Уничтожаем список.
  FreeAndNil(Sl);
end;

//Очистка таблицы. Строки очищаем, т. к. только сброс количества строк - это недостаточная мера.
procedure SgClear(aSg : TStringGrid);
var
  i : Integer;
begin
  for i := 0 to aSg.ColCount - 1 do
    aSg.Cols[i].Clear;
  aSg.RowCount := aSg.FixedRows + 1;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i, j : Integer;
  Sg : TStringGrid;
begin
  //Таблица, в которую будем записывать извлечённые данные.
  Sg := StringGrid1;
  SgClear(Sg);
  Sg.RowCount := Memo1.Lines.Count;
  //Обработка строк. Исходный текст берём из Memo1.
  for i := 0 to Memo1.Lines.Count - 1 do
  begin
    //Извлекаем из текста части и записываем их в очередную строку таблицы.
    ExtractStrings([#9], [], PChar(Memo1.Lines[i]), Sg.Rows[i]);
    //Удаляем обрамляющие пробелы.
    for j := 0 to Sg.ColCount - 1 do
      Sg.Cells[j, i] := Trim(Sg.Cells[j, i]);
  end;
end;