Foto Interbase

procedure TFrmFabianovo.LoadFotoBanco(Arquivo: String);
Var
stImagem: TFileStream;
begin
  stImagem := TFileStream.Create( Arquivo, fmOpenRead or
  fmShareDenyWrite );
  Try
   ibdsClienteFOTO.LoadFromStream( stImagem );
  Finally
  stImagem.Free;
End;
end;

procedure TFrmFabianovo.GetImgBanco(var foto: TImage);
Var
jpgImg: TJPEGImage;
stMem: TMemoryStream;
begin
  If ibdsClienteFOTO.IsNull Then Exit;
  jpgImg := TJPEGImage.Create;
  stMem := TMemoryStream.Create;
  Try
    ibdsClienteFOTO.SaveToStream( stMem );
  stMem.Position := 0;
  jpgImg.LoadFromStream( stMem );
  foto.Picture.Assign( jpgImg );
  Finally
  stMem.Free;
  jpgImg.Free;
End;
end;