Search options

 s := Form1.RichEdit1.Text;
  Form1.RichEdit1.Clear;

  s := ReplaceStr(s,'(',' (');
  s := ReplaceStr(s,chr(13),' ');
  s := ReplaceStr(s,'  ',' ');
  Tags := SplitString( s,' ');
  for i := 0 to length(Tags) - 1 do
  begin

     tmpTag := Trim(Tags[i]);
    if (tmpTag <> '') then
 begin
        if (UpperCase(tmpTag) = 'SELECT') or (UpperCase(tmpTag) = 'FROM')  or (UpperCase(tmpTag) = 'WHERE') or  (UpperCase(tmpTag) = 'LEFT') or (UpperCase(tmpTag) = 'RIGHT') or (UpperCase(tmpTag) = 'GROUP')  or (UpperCase(tmpTag) = 'ORDER') or (UpperCase(tmpTag) = 'HAVING') then
            begin
                ...
            end
        else if  (UpperCase(tmpTag) = 'JOIN') or (UpperCase(tmpTag) = 'BY') or (UpperCase(tmpTag) = 'OUTER') or (UpperCase(tmpTag) = 'INNER')  or (UpperCase(tmpTag) = 'AND') or (UpperCase(tmpTag) = 'OR') or (UpperCase(tmpTag) = 'AS') or (UpperCase(tmpTag) = 'ON') or (UpperCase(tmpTag) = 'NOT') or (UpperCase(tmpTag) = 'TOP') or (UpperCase(tmpTag) = 'DESC') or (UpperCase(tmpTag) = 'ASC') or (UpperCase(tmpTag) = 'BETWEEN') or (UpperCase(tmpTag) = 'LIKE') or (UpperCase(tmpTag) = 'EXTRACT')  or (UpperCase(tmpTag) = 'CASE') or (UpperCase(tmpTag) = 'WHEN')  or (UpperCase(tmpTag) = 'THEN')   or (UpperCase(tmpTag) = 'NULL') then
            begin
                ...
            end
        else if  (UpperCase(tmpTag) = 'SUM') or (UpperCase(tmpTag) = 'COUNT') or (UpperCase(tmpTag) = 'MIN') or (UpperCase(tmpTag) = 'MAX') or (UpperCase(tmpTag) = 'IN') or (UpperCase(tmpTag) = 'SUBSTR') or (UpperCase(tmpTag) = 'TO_DATE') then
            begin
                ...
            end
        else
            begin
               ...
            end

    end;
  end;