[Delphi]: найти множество всех слов, которые встречаются в каждом из заданных предложений.

[SEXTANT]

найти множество всех слов, которые встречаются в каждом из заданных предложений.
Помогите пожалуйста не знаю как делать

[newerow1989]

type tArrs=array of string;

procedure Analiz(s:string; var st:tArrs);
var i,count:integer;
    s1:string;
begin
   count:=0;
   SetLength(st,0);
   While s<>'' do
   begin
      i:=Pos(' ',s);
      If i>0 then
      begin
         s1:=Copy(s,1,i-1);
         Delete(s,1,i);
      end else
      begin
         s1:=s;
         s:='';
      end;
      If s1<>'' then
      begin
         count:=count+1;
         SetLength(st,count);
         st[count-1]:=s1;
      end;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k:integer;
    st:tArrs;
    s:string;
    d2:boolean;
begin
   s:='';
   For i:=0 to Memo1.Lines.Count-1 do
      s:=s+Memo1.Lines[i]+' ';
   Analiz(s,st);
   i:=Low(st);
   Repeat
      d2:=false;
      For j:=i+1 to High(st) do
         If st[i]=st[j] then
         begin
            d2:=true;
            For k:=j to High(st)-1 do
               st[k]:=st[k+1];
            SetLength(st,High(st));
         end;
      If not d2 then
      begin
         For k:=i to High(st)-1 do
            st[k]:=st[k+1];
         SetLength(st,High(st));
         i:=i-1;
      end;
      i:=i+1;
   Until i>High(st);
   Label1.Caption:='';
   For i:=Low(st) to High(st) do
      Label1.Caption:=Label1.Caption+st[i]+#13#10;
end;