Usar el resultado de un Query

[ramonibk]

Correccion del codigo de ejecuciuon

 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;