Código Delphi [-] with TForm.Create(self) do try Icon.Assign(Image1.Picture.Icon); ShowModal; finally Free; end;
with TForm.Create(self) do try Icon.Assign(Image1.Picture.Icon); ShowModal; finally Free; end;