Alguem sabe pq essa fota não carrega no TIMAGE, oque esta errado no codigo?

procedure TFrmAluno.CapturarFotoClick(Sender: TObject);

var
DirNomeFoto: string;
NomeFoto: string;
procedure ConverteParaJpeg(ACaminhoFoto: string);
var
cjBmp: TBitmap;
cjJpg: TJpegImage;
strNomeSemExtensao: string;
AFoto: TImage;
begin
AFoto:= TImage.Create(FrmAluno);
AFoto.Parent := FrmAluno;
AFoto.Visible := False;
AFoto.Picture.Bitmap.LoadFromFile(ACaminhoFoto + '.bmp');

cjJpg := TJPegImage.Create;
cjBmp := TBitmap.Create;

cjBmp.Assign(AFoto.Picture.Bitmap);
cjJpg.Assign(cjBMP);

cjJpg.SaveToFile(ACaminhoFoto + '.jpg');
DeleteFile(ACaminhoFoto + '.bmp');
cjJpg.Free;
cjBmp.Free;
AFoto.Free;
end;
begin
inherited;
FrmWebcam := TFrmWebcam.Create(Self);
try
with FrmWebcam, camCamera, DM, cdsAluno do
begin
DirNomeFoto := ExtractFilePath(Application.ExeName) +
LimpaString(FieldByName('ALUNOID').AsString) + '.bmp';

NomeFoto := ExtractFilePath(DirNomeFoto) +
Copy(ExtractFileName(DirNomeFoto),1, Length(ExtractFileName(DirNomeFoto))-4);

FichierImage := ExtractFileName(DirNomeFoto);
if FrmWebcam.ShowModal = mrOk then
begin
CaptureImageDisque;
ConverteParaJpeg(NomeFoto);
FieldByName('ALUNOFOTO').AsString := NomeFoto + '.jpg';
end;
end;
finally
FreeAndNil(FrmWebcam);
end;

end;

o caminho e salvo no banco, no campo 'ALUNOFOTO', EX: C:\GUARDIAN\BIN\1.JPG

so que quando acesso tela , não aparece imagem,

PQ?

AGRADEÇO ANTECIPADAMENTE , POIS JA QUEBREI CABEÇA E NADA...