Funcion Delphi en SQL

[ContraVeneno]

Código Delphi [-]
var CampoConCeros: string;
...
with TuQuery do begin
 If active then close;
 SQL.Clear;
 SQL.Add('Select Campo');
 SQL.Add('From Tabla');
 SQL.Add('Where campo = 1');
 Open;
 if Not IsEmpty then begin //sí se encontró el campo
  CampoConCeros := Trim(FieldByName('Campo').AsString);
  While Length(CampoConCeros) < 5 do begin
   CampoConCeros := CampoConCeros+'0';
  end; //while
 end; //if not isempty
end; //with