[angvelem]

Вот я и привел пример, затем копируешь битмап на форму.

Код:

function WndProc(Wnd : HWND; Msg : Integer; wParam, lParam : Longint): Integer; stdcall;
var
  ps    : PAINTSTRUCT;
...
  WM_PAINT :
  begin
    BeginPaint(Wnd, ps);
    BitBlt(ps.hdc, 0, 0, Bmp.Width, Bmp.Height, Bmp.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, SRCCOPY);
    EndPaint(Wnd, ps);
  end;