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 2)-(b.Width div 2);y:=(Form1.ClientHeight div 2)-(b.Height div 2);Form1.Canvas.Draw(x,y,b);b.Free;end;end;