Uses shellapi; procedure TForm1.FormCreate(Sender: TObject); var TheIcon: TIcon; begin TheIcon := TIcon.Create; TheIcon.Handle := ExtractIcon(hInstance,'C:\dosya\dosya.EXE',0); image1.picture.Icon:=Theicon; end;