Строки!!

function Func(s:string):string;
const
  dividers=[' ',',','.',';',':','-','=','+'];{äîïèñàòü íóæíûå}
var
  temp,res:string;
  i:integer;
begin
  temp:='';
  {ïðîáåãàåì âñþ ñòðîêó ïîñèìâîëüíî}
  for i:=1 to length(s) do
  begin
    if not (s[i] in dividers) then
      temp:=temp+s[i];
    if (s[i] in dividers) or (i=length(s)) then
      if temp<>'' then
      begin
        if pos(temp[1],copy(temp,2,length(temp)-1))<>0 then
          res:=res+temp+' ';
        temp:='';
      end;
  end;
  Result:=res
end;

function Func(s:string):string;
const
  dividers=[' ',',','.',';',':','-','=','+'];{äîïèñàòü íóæíûå}
var
  temp,res:string;
  i:integer;
begin
  temp:='';
  {ïðîáåãàåì âñþ ñòðîêó ïîñèìâîëüíî}
  for i:=1 to length(s) do
  begin
    if not (s[i] in dividers) then
      temp:=temp+s[i];
    if (s[i] in dividers) or (i=length(s)) then
      if temp<>'' then
      begin
        if (pos(LowCase(temp[1]),copy(temp,2,length(temp)-1))<>0) or (pos(UpCase(temp[1]),copy(temp,2,length(temp)-1))<>0) then
          res:=res+temp+' ';
        temp:='';
      end;
  end;
  Result:=res
end;

...
ShowMessage(Func('в этом месте должна быть строка'))
...