amigo puedes usar un directorilistbox para la ruta + un edit para el nombre y un filtercombobox para la extencion de esta forma !
Código Delphi
[-] Canvas.CopyRect(Rect(0,0,Width,Height), PaintBox1.Canvas, Rect(0,0,Width,Height));
end;
Bitmap.SaveToFile(DirectoryListBox1.GetNamePath + Edit2.Text + FilterComboBox1.Text )
Finally
Bitmap.Free;
DirectoryListBox1.GetNamePath es el path
edit2 es el nombre
filtercombobox es la extencion
no es muy categorico pero por lo menos guarda donde vos queres que guarde y no tenes que hacerlo por codigo ni nada por el estilo
pd : espero que te sirva saludos !