DRAWICON

BCB中

TIcon* MyIcon= new TIcon();
MyIcon->LoadFromFile("E://tempCode//iconHint//PasswordOn.ico");
DrawIconEx(Image1->Canvas->Handle, 0, 0, MyIcon->Handle, 16,16, 0, NULL, DI_NORMAL || DI_COMPAT);
delete MyIcon;

DELPHI中

var
 Hicon:TIcon;
begin
  Hicon:=TIcon.Create;
  Hicon.LoadFromFile('E:/tempCode/iconHint/PasswordOn.ico');
  DrawIconEx(Image1.Canvas.Handle,0,0,Hicon.Handle,16,16,0,0,DI_NORMAL);
 // DrawIconEx(Image1.Canvas.Handle, 0, 0, Hicon.Handle, Hicon.Width,Hicon.Height, 0, null , DI_NORMAL or DI_COMPAT);
//  DrawIconEx(Image1.Canvas.Handle, 0, 0, Hicon.Handle, 16,16, 0, null , DI_NORMAL or DI_COMPAT);
  Hicon.Free;
end;