procedure TForm1.Button3Click(Sender: TObject);
var
  rect: TRect;
begin
  rect.Left := 100;
  rect.Top := 100;
  rect.Right := 200;
  rect.Bottom := 200;
  DrawText(Canvas.Handle, 'Ha Ha Ha', 7, rect, 0);
  DrawEdge(Form1.Canvas.Handle, rect, EDGE_SUNKEN, BF_RECT);
end;