como evitar varios Query.open..?

[[fjcg02]]

Haz una función... y utilizala en cada caso.

Código Delphi [-]
function Pedirdato ( SQL, Resultado:string): integer;
begin
  Query.Close;
  Query.SQL.Clear;
  Query.SQL.Add(SQL);
  Query.Open;
  return:= Query.FieldbyName.(resultado).AsInteger;
end;

Saludos