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;