StringGrid. Отделить буквы от цифр.

CREATE OR ALTER PROCEDURE EXTRACT_DIGITS (STRING VARCHAR(32))
RETURNS (DIGITS VARCHAR(32))
AS 
  DECLARE variable CH CHAR(1);
  DECLARE variable L INTEGER;
  DECLARE variable I INTEGER;
BEGIN
   digits = '';
   L = CHAR_LENGTH(string);
   I = 1;
   while (I <= L) do BEGIN
      CH = SUBSTRING(STRING FROM I FOR 1);
      IF (CH BETWEEN '0' AND '9') THEN
         DIGITS = DIGITS || CH;
      I = I + 1;
   END
  suspend;
END

CREATE OR ALTER TRIGGER TR_SPR_ABON_BIU FOR SPR_ABON
ACTIVE BEFORE  INSERT OR UPDATE POSITION 0
AS
  DECLARE variable Tek_Simv CHAR(1);
  DECLARE variable LEN SMALLINT;
  DECLARE variable TekStr VARCHAR(5);
  DECLARE variable LENF INTEGER;
  DECLARE variable ch_d CHAR(1);
BEGIN
 
       /*делим РґРѕРјР°*/
        Tek_Simv=' '; LEN=1; ch_d='F'; TekStr=TRIM(NEW.DOM); LENF=CHAR_LENGTH(TekStr); 
        while (LEN <= LENF) DO
        BEGIN  
        Tek_Simv = SUBSTRING(TekStr FROM LEN FOR 1);    
        IF (Tek_Simv NOT IN ('0','1','2','3','4','5','6','7','8','9','/','\')) then 
        Begin
           if (ch_d='F') Then
           Begin
              NEW.DOM=SUBSTRING(TekStr FROM 1 FOR LEN-1); ch_d='T';    
           end 
        end
        if (Tek_Simv not in ('0','1','2','3','4','5','6','7','8','9',' ','-',':',';','/','\')) then 
            Begin
               NEW.DOM2=Tek_Simv;
            end                        
        LEN=LEN+1;      
        end
        /*делим квартиры*/
        Tek_Simv=' '; LEN=1; ch_d = 'F'; TekStr=TRIM(NEW.KB); LENF=char_length(TekStr); 
        while (LEN <= LENF) DO
        BEGIN  
           Tek_Simv = SUBSTRING(TekStr FROM LEN FOR 1);
           if (Tek_Simv not in ('0','1','2','3','4','5','6','7','8','9','/','\')) then
              Begin
               if (ch_d='F') Then
               Begin
                  New.KB=SUBSTRING(TekStr FROM 1 FOR LEN-1); ch_d='T';
               end                       
              end
              if (Tek_Simv not in ('0','1','2','3','4','5','6','7','8','9',' ','-',':',';','/','\')) then
                 Begin
                    NEW.KB2=Tek_Simv;
                 end    
           LEN=LEN+1;      
        end
 
end