Можно ли записать в одну ячейку StringGrid несколько строк, если можно то как.

именно записать ( на постоянное хранение )?
или показать при редактировании?

если первое -- вряд ли

Рисовать сами ячейки в ручную в OnDrawCell.
Для определения обрабатываемой ячейки использовать GridState.

Например:

procedure DrawTextAligned(Sender: TObject; ACol, ARow: LongInt; Rect: TRect; State: TGridDrawState);

var
l: word;
l_x, l_y, i : integer;
s, s1: string;
l_c, l_r : Longint;
begin
l_c:=ACol;
l_r:=ARow;
with Sender as TStringGrid do
begin
if (l_r = 0) then
Canvas.Font.Style:= Canvas.Font.Style + [fsbold];
if l_r = 0 then
begin
l:= SetTextAlign(Canvas.Handle, ta_center);
l_x:= Rect.Left + (Rect.Right - Rect.Left) div 2;
s:= Cells[l_c,l_r];
while s<>'' do
begin
if Pos(#13, s) <> then
begin
if Pos(#13,s) = 1 then s1:= ''
else
begin
s1:= Trim(Copy(s,1,pred(pos(#13,s))));
Delete(s, 1, pred(pos(#13,s)));
end;
Delete(s,1,2);
end
else
begin
s1:=trim(s);
s:='';
end;
l_y:= Rect.Top + 2;
Canvas.TextRect(Rect, l_x, l_y, s1);
inc(rect.top, RowHeights[l_r] div 3);
end;
SetTextAlign(Canvas.Handle, l);
end
else
Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Cells[l_c,l_r]);
canvas.Font.Style := Canvas.Font.Style - [fsbold]
end;
end;

Не проверял, но должно работать.