제가 그냥 보면 아실정도만 작성한 예입니다..

날림입니다.. --;;

보시면 아실 수 있을꺼라 믿습니다.. ^^

그럼 이만 ... 총총..

//////////////////////////////////////////////////////////////////
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  tmpStr : String;
  divStr1 : String;
  divStr2 : String;
  tmpWidth : Integer;
begin
  tmpStr := '123456789012345678910';
  tmpWidth := Length(tmpStr);

  if ACol = 1 then
    begin
      divStr1 := copy(tmpStr,1,tmpWidth div 2);
      divStr2 := copy(tmpStr,tmpWidth div 2 + 1,tmpWidth div 2);
      StringGrid1.Canvas.TextOut(Rect.Left,Rect.Top   ,divStr1);
      StringGrid1.Canvas.TextOut(Rect.Left,Rect.Top + ABS(StringGrid1.Font.Height) + 2,divStr2);
    end;
end;