Correccion del codigo de ejecuciuon
Código:
Begin
qryHayMensajes.ParamByName('User').Value:=Edit1.text;
if qryHayMensajesNumeroMensajes >=1
then begin image1.Picture.LoadFromFile('BallRed.Bmp')
end Else image1.Picture.LoadFromFile('BallRed.Bmp');
end;