Hola
Tal vez esto te de alguna idea.
Es un ejemplo sencillo.
Código Delphi
[-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
AnteriorBkMode: integer;
begin
with Image1.Canvas do begin
Brush.Color := clRed;
TextOut(5, 350, 'Fecha de entrada');
AnteriorBkMode := SetBkMode(Handle, TRANSPARENT);
TextOut(5, 380, Edit1.Text);
SetBkMode(Handle, AnteriorBkMode);
end;
end;
Saludos