Use the Windows API functions SetBkColor() and TextOut().

Example:

procedure TForm .Button Click(Sender: TObject); var OldTextColor : TColorRef; OldBkColor : TColorRef; OldBkMode : Integer; begin OldTextColor := SetTextColor(Form .Canvas.Handle, RGB(0, 0, 255)); OldBkColor := SetBkColor(Form .Canvas.Handle, RGB(255, 0, 0)); OldBkMode := SetBkMode(Form .Canvas.Handle, OPAQUE); TextOut(Form .Canvas.Handle, 00, 00, 'Blue text on red Background', 27); SetBkMode(Form .Canvas.Handle, OldBkMode); SetBkColor(Form .Canvas.Handle, OldBkColor); SetTextColor(Form .Canvas.Handle, OldTextColor); end;

7/ 6/98 4:3 :28 PM