Procedure createstatic(caption:string;x,y,wid,hei:integer);
begin
  CreateWindow('static', pchar(caption), WS_CHILD or WS_VISIBLE,x,y,wid,hei,hwndmain,10000, hInstance, 0);
end;

var
  Font: HFONT;
...
Font := CreateFont( -30, 15, 25, 10, 1000, 1, 1, 0,
                    DEFAULT_CHARSET, OUT_DEFAULT_PRECIS,
                    CLIP_DEFAULT_PRECIS, ANTIALIASED_QUALITY,
                    DEFAULT_PITCH or FF_DONTCARE, 'Courier New' );
...
SendMessage( Btn, WM_SETFONT, Font, 0 );

form
  CONTROL "WinAPI. Урок 2. Создание контролов с помощью ресурсов", -1, STATIC, SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 8, 10, 180, 30
  CONTROL "Закрыть", 51, BUTTON, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 126, 88, 60, 14

// новая функция, которая обрабатывает все команды
// от элементов управления диалога
function DlgProc(hWin: HWND; uMsg: UINT; wp: WPARAM; lp: LPARAM): bool; stdcall;
begin
  Result := False;
  case uMsg of
    // инициализация окна
    WM_INITDIALOG:
    begin
      SendMessage(GetDlgItem(hWin, 51), WM_SETFONT, WPARAM(myFont), 0); // Вот оно, чудо чудное !!!
    end;

    //обрабатываем команды получаемые от пользователя
    WM_COMMAND:
    begin
      case LoWord(wp) of
        // а вот и наша кнопка, с идентификатором 51...
        51: EndDialog(hWin, 0);
      end;
    end;
  end;
end;

TestDialog DIALOG  10, 10, 300, 110
STYLE WS_POPUP | WS_BORDER
CAPTION "Test" 
{
    CONTROL "WinAPI. Lesson 2", -1, STATIC, SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 8, 10, 180, 30
    CONTROL "Close", 51, BUTTON, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 126, 88, 60, 14
}

Procedure OnPaint(DC: HDC);
var
  graphics : TGPGraphics;
  Image: TGPImage;
  destinationRect: TGPRectF;
begin
  graphics := TGPGraphics.Create(DC);
  Image:= TGPImage.Create('vol.gif');
  graphics.DrawImage(image, 0, 0);
  Image.Free;
  graphics.Free;
end;

procedure TForm1.FormPaint(Sender: TObject);
var handle:hdc;
    ps:paintstruct;
begin
  Handle := BeginPaint(form1.form.Handle, ps);
  OnPaint(Handle);
  EndPaint(form1.form.handle, ps);
end;

// В интерфейсной части модуля
function OleLoadPicturePath(szUrlorPath: PWideChar;
  unkCaller: IInterface; dwReserved: Integer; drReserved: Cardinal;
  const iid: TGUID; ppvRet: Pointer): HRESULT; stdcall;


// а это - в Implementation
uses ActiveX, ComObj;

// Если не описать этого, то получишь ошибку, что OleLoadPicturePath отсутствует в модуле
// olepro32.dll ... Но оно действительно не там, а в oleaut32.dll, и это надо объяснить программе...
function OleLoadPicturePath; external 'oleaut32.dll' name 'OleLoadPicturePath';


const
  IID_IPicture: TGUID = '{7BF80980-BF32-101A-8BBB-00AA00300CAB}';

procedure TForm1.Button5Click(Sender: TObject);
var
  pic: IPicture;
  f_name: WideString;

  picWidth, picHeight: Integer;
  bounds: TRect; // Здесь оно на фиг не надо. но Render требует...
begin
  f_name := 'F:\Test\av-1235.jpg';
  Pic := nil;

  OleCheck( OleLoadPicturePath(PWideChar(f_name), nil, 0, 0, IID_IPicture, @Pic) );
  OleCheck( pic.get_Width(picWidth) );
  OleCheck( pic.get_Height(picHeight) );

  pic.Render(GetWindowDC(Panel1.Handle), 0, 0, Panel1.Width, Panel1.Height,
    0, picHeight, picWidth, -picHeight, bounds);
end;

Procedure myOnPaint(DC: HDC);
var
  graphics : TGPGraphics;
  Image: TGPImage;
  destinationRect: TGPRectF;
begin
  Image:= TGPImage.Create('F:\Test\av-1235.jpg');
  graphics := TGPGraphics.Create(DC);
  graphics.DrawImage(image, 0, 0);
  Image.Free;
  graphics.Free;
end;

procedure TForm1.FormPaint(Sender: TObject);
var ps:paintstruct;
begin
  BeginPaint(form1.Handle, ps);
  myOnPaint(Form1.Canvas.Handle);
  EndPaint(form1.handle, ps);
end;

Function LoadJpegRes(const ID: string): TStream;
var
  RS: TResourceStream;
begin
  RS:=TResourceStream.Create(HInstance, ID, 'JPEG');
  result:=TStream.create;
  try
    RS.Seek(0, soBeginning);
    Result.CopyFrom(rs,rs.size);
  finally
    RS.Free;
  end;
end;

Procedure myOnPaint(DC: HDC;x,y:integer;stream:TStream);
var
  graphics : TGPGraphics;
  Image: TGPImage;
  destinationRect: TGPRectF;
begin
  Image:= TGPImage.Create();
  GdipLoadImageFromStream(stream,image); //<-тут ошибка
  graphics := TGPGraphics.Create(DC);
  graphics.DrawImage(image, x, y);
  Image.Free;
  graphics.Free;
end;

Procedure getimage(id:string;x,y:integer); //<--изначально собираюсь вызывать её с ID ресурса и координатами
var ps:TPaintStruct;
begin
  BeginPaint(form1.form.Handle, ps);
  myOnPaint(Form1.form.Canvas.Handle,x,y,loadjpegres(id));
  EndPaint(form1.handle, ps);
end;

procedure TForm1.Button1Click(Sender: TObject);
var stream:IStream;
    image:TGPImage;
    graphics:TGPGraphics;
begin
  with TResourceStream.Create(hInstance,'PIC1','JPEG') do try
    OleCheck(CreateStreamOnHGlobal(0,True,Stream));
    OleCheck(Stream.Write(Memory,Size,nil));
    Image:=TGPBitmap.Create(Stream);
    graphics:=TGPGraphics.Create(form1.Canvas.Handle);
    graphics.DrawImage(image, 0, 0, 100,100);
  finally
    Free;
    image.free;
    graphics.Free;
  end;
end;