CodePudding user response:
In the project - & gt; Resources and add your icon in the images, and then...
USES the
Winapi. Windows, Winapi Messages,
FMX. Platform. Win;
.
Procedure TForm1. Button1Click (Sender: TObject);
The begin
SendMessage (FmxHandleToHWND (Handle), WM_SETICON, ICON_BIG, LoadIconW (MainInstance, PChar (' Icon_1)));
end;