...
implementation
uses bmp2pdf;
procedure TForm1.ButtonSaveClick(Sender: TObject);
var
sd: TSaveDialog;
begin
sd := SaveDialog1;
sd.Filter := 'Adobe Reader file|*.PDF';
sd.DefaultExt := 'PDF';
sd.FilterIndex := 1;
if sd.Execute then
BMPtoPDF(Image1.Picture.Bitmap, sd.FileName);
end;
...