procedure TForm1.GridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var s : String;
    x : integer;
begin
  with StringGrid1 do
    if not (gdFixed in State) then
    if Pos(' ',Cells[ACol,ARow]) > 0 then
      begin
      s := Copy(Cells[ACol,ARow],1,Pos(' ',Cells[ACol,ARow])-1);
      Canvas.Font.Style := [fsBold];
      Canvas.TextOut(Rect.Left+2,Rect.Top+2,s);
      x := Canvas.TextWidth(s);
      Canvas.Font.Style := [];
      Canvas.Font.Color := clBlue;
      s := Copy(Cells[ACol,ARow],Pos(' ',Cells[ACol,ARow]),MAXINT);
      Canvas.TextOut(Rect.Left+2+x,Rect.Top+2,s);
      end;
end;