Problemas con imágenes en BD

[Casimiro Noteví]

Algo así te sirve, con un simple timage

Código Delphi [-]
uses jpeg
...
...
...

procedure TFmain.FormShow(Sender: TObject);
var
  cImg, cExt : string;
begin 
  cImg := LeerINI(cContaIni,_seccion_personal_,_propiedad_imagenfondoalternativa_);
  cExt := AnsiUpperCase(ExtractFileExt(cImg));
  if ( (_JPG_=cExt) or (_JPEG_=cExt) or (_PNG_=cExt) ) then
    imgFondo.Picture.LoadFromFile(cImg)
  else
  if (_BMP_=cExt) then
    imgFondo.Picture.Bitmap.LoadFromFile(cImg);

...
...
...

end;