Delphi создайте приложение, на форму которого помещены компоненты: button и opendialog. напишите обработчик события onclick компонента button, который открывает диалог opendialog и, в случае положительного ответа, загружает в память компьютера выбран-ный пользователем графический файл bmp и отображает его в центре формы.

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 .width div 2); y: =(form1.clientheight div .height div 2); form1.canvas.draw(x,y,b); b.free; end; end;