Fotos no delphi

Fotos no delphi
Pressupondo que vc já tem a foto armazenada em disco e no formato .BMP, insira um componente DBImage no form e, por exemplo, no evento OnDblClick deste DBImage:
var
od : TOpenDialog;
begin
od := TOpenDialog.Create(Form1);
od.Filter := 'Bitmaps (*.bmp)|*.bmp';
od.Title := 'Localizar a foto para inserir no cadastro';
if od.Execute then
begin
if not (DBImage1.DataSource.State in [dsEdit,dsInsert]) then
begin
DBImage1.DataSource.Edit;
end;
(DBImage1.Field as TBlobField).LoadFromFile(od.FileName);
DBImage1.LoadPicture;
od.Free;
end;

a imagem .bmp que vc escolher estará no DBImage do registro atual.