OpenPictureDialog Problems

Can some please tell me why this won't work?


procedure TForm1.Button1Click(Sender: TObject);
var OpenPicDlg : TOpenPictureDialog;
Bitmap: TBitmap;
NewShape : TManyShape;
begin
Bitmap := TBitmap.Create;
OpenPicDlg := TOpenPictureDialog.Create(Self);
if OpenPicDlg.Execute then
begin
bitmap.LoadFromFile(OpenPicDlg.FileName);
Newshape.Image :=Bitmap;
end;
OpenPicDlg.Free;

end;
.

Quantcast