procedure TForm8.close1(Sender: TObject); begin Close; end; procedure TForm8.FormClose(Sender: TObject; var Action: TCloseAction); begin img1.Free; end;
Яндекс