[stanilar]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var sl : TStringList; MIndx : integer;
begin
  sl := TStringList.Create;
  for MIndx := 0 to Memo1.Lines.Count - 1 do begin
    sl.Text := StringReplace(Memo1.Lines.Strings[MIndx], ';', sLineBreak, [rfReplaceAll]);
    StringGrid1.RowCount := StringGrid1.RowCount + 1;
    if StringGrid1.ColCount < sl.Count then StringGrid1.ColCount := sl.Count;
    StringGrid1.Rows[StringGrid1.RowCount - 1] := sl;
  end;
  sl.free;  
end;

Админ: Пользуемся тегами для оформления кода!