[Alegun]

При многострочной ячяе больно промежутки между букофф большие образуются, поэтому лучше текст рисовать посредством .canvas.textout или .canvas.textrect либо .drawtext

З.Ы. Вот пример через textout

Код:

var
 t: LOGFONT;
 hf: HFONT;
 f: TFont;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
begin
// И используя его рисуем на каве ячеек.
  with TStringGrid(sender).Canvas do
   begin
    Font:= f;
    with aRect do
     TextOut(Left+(Right-Left) div 2, Top, 'DelphiSources');
   end;
end;

 procedure TForm1.FormCreate(Sender: TObject);
begin
// Создаем повернутый фонт
 with t do
  begin
   lfHeight:= 20;
   lfOrientation:= 90;   // на 90 градусов
   lfEscapement:= 900;
   lfWeight:= FW_NORMAL;
  end;
 hf:= CreateFontIndirect(t);
 F:= TFont.Create;
 F.Handle:= hf;
end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  f.Free;
  DeleteObject(hf);
end;