var
  dc: HDC;
  TheFont: HFont;
begin
  dc := GetDC(handle);
  TheFont := CreateFont(24, 16, 0, 0, 400, 0, 0, 0,
    Oem_CharSet, Out_Default_Precis, Clip_Default_Precis,
    Default_Quality, Default_Pitch OR FF_Script, 'script');
  SelectObject(dc, TheFont);
  TextOut(dc, 10, 10, 'Lloyd is the greatest!!!', 24);
  ReleaseDC(handle, dc);
  DeleteObject(TheFont);
end;