procedure TForm1.Button1Click(Sender: TObject);
var
  IconIndex: word;
  Icon: Ticon;
begin
  IconIndex := 0;
  Icon := Ticon.Create;
  Icon.Handle := ExtractIcon(hinstance,'C:\1.exe',IconIndex);
  Icon.SaveToFile('C:\1.ico');
  Icon.Free;
end;