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 CampoConCeros := Trim(FieldByName('Campo').AsString);
While Length(CampoConCeros) < 5 do begin
CampoConCeros := CampoConCeros+'0';
end; end; end;