Delphi Создайте приложение, на форму которого помещены компоненты: Button и OpenDialog.…

procedure TForm1.Button1Click (Sender: TObject); varb: TBitmap; x,y: integer; beginif OpenDialog1.Execute and (AnsiLowerCase (ExtractFileExt (OpenDialog1.FileName)='.bmp') thenbeginb: =TBitmap.Create; b.LoadFromFile (OpenDialog1.FileName); x: =(Form1.ClientWidth div 2) — (b.Width div 2); y: =(Form1.ClientHeight div 2) — (b.Height div 2); Form1.Canvas.Draw (x,y,b); b.Free; end; end;