procedure TForm1.btn3Click(Sender: TObject);
var
FileName: AnsiString;
begin
  if OpenDialog1.Execute then
FileName := OpenDialog1.FileName ;
img1.Picture.Icon.Handle :=
ExtractIcon(Hinstance, pchar(FileName), 0);
end;