问一个关于StringGrid控键的问题。

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  r:TRect;
  s:String;
begin
  with StringGrid1 do
  begin
    if (ACol=0) and (ARow=1) then
    begin
      R:=Rect;
      s:=  'abcd'^M'fgggggg';
      DrawText(Canvas.Handle,PChar(s),length(s),r,DT_WORDBREAK );
    end;  end;    // with
end;