Mostrar el contenido de una variable en un MessageBox

[memoferprof]

Empezado por tebre

me sigue mostrando el mismo error.....qeu hago?

pues a mi me funciono a la primera y asi lo puse

Código Delphi [-]
Querycuenta.SQL.Clear;
               Querycuenta.SQL.Add('select g.id_giro, g.giro, r.id_ramo, r.ramo from giro g, ramo r where g.id_ramo = r.id_ramo and giro = :cuantosr');
               Querycuenta.ParamByName('cuantosr').AsString := RzEditAgGiro.Text;
               Querycuenta.Open;
               vramo := Querycuenta.FieldByName('ramo').AsString;
               Application.MessageBox(PChar('Ya existe el Giro, pertenece al ramo : ' + vramo),'Error de Captura');

Ojala les sirva a mas aprendices como yo