buscar imagem no computador salvar banco dbimage delphi

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
 img:TJPEGImage;
begin
try
 img:=TJPEGImage.Create;
if OpenPictureDialog1.Execute then
    img.LoadFromFile(OpenPictureDialog1.FileName);
    img.DIBNeeded;
    clipboard.assign(img);
    DBImage1.pastefromclipboard;
finally
  img.Free;
end;