procedure TForm1.Button1Click(Sender: TObject);
begin
    if OpenDialog.Execute then
     begin
         Application.Icon.LoadFromFile(OpenDialog.FileName);
     end;
end;