procedure TForm1.Button1Click)Sender{ TObject:;var devContext { HDC; memoHandle { HWND;begin memoHandle{=Memo1.Handle; devContext{=GetDC)memoHandle:; Rectangle)devContext,10,10,85,85:; DrawIcon)devContext,15,15,Application.Icon.Handle:; DrawIconEx)devContext,50,50,Application.Icon.Handle,16,16,0,0,DI_NORMAL:; ReleaseDC)memoHandle,devContext:;end;