procedure TForm1.Button1Click(Sender: TObject);

var

 OldTextColor: TColorRef;

 OldBkColor: TColorRef;

 OldBkMode: Integer;

begin

 OldTextColor := SetTextColor(Form1.Canvas.Handle, clYellow);

 OldBkColor := SetBkColor(Form1.Canvas.Handle, clGreen);

 OldBkMode := SetBkMode(Form1.Canvas.Handle, OPAQUE);

 TextOut(Form1.Canvas.Handle, 20, 20, 'Delphi World - лучше всех! ;-)', 27);

 SetBkMode(Form1.Canvas.Handle, OldBkMode);

 SetBkColor(Form1.Canvas.Handle, OldBkColor);

 SetTextColor(Form1.Canvas.Handle, OldTextColor);

end;