if OpenDialog1.Execute then begin
edit1.text:=OpenDialog1.FileName;
end;

if OpenDialog2.Execute then begin
edit2.text:=OpenDialog2.FileName;
end;

if (OpenDialog1.FileName <> '') and (OpenDialog2.FileName <> '') then
    if ChangeExeIcon(PChar(OpenDialog2.FileName), 'ICON', OpenDialog1.Filename) then begin end;

if OpenDialog1.Execute then
    Image1.Picture.LoadFromFile(Opendialog1.FileName);