var
LOGFONT : TLogFont;
Font : HFONT;
begin
LOGFONT.lfHeight := 30;
LOGFONT.lfWidth := 10;
LOGFONT.lfWeight := FW_NORMAL;
LOGFONT.lfEscapement := 500;
LOGFONT.lfStrikeOut := 0;
LOGFONT.lfItalic := 0;
LOGFONT.lfUnderline := 0;
LOGFONT.lfFaceName := 'Tahoma';
Font := CreateFontIndirect(LOGFONT);
SelectObject(Form1.Canvas.Handle,Font);
Form1.Canvas.TextOut(Form1.Image1.Left+label3.left,Form1.Image1.Top+label3.top,'Clouding administración');
DeleteObject(Font);