Компонент TMemo(строки)

Memo.Lines

procedure TForm1.Button1Click(Sender: TObject);
 var s,slovo:string;
     ns,ks,i,j,k,l:integer;
     L1:TStringList;
     m : set of char;
begin
 Memo2.Lines.Clear;
 L1:=TStringList.Create;
 for i:=0 to Memo1.Lines.Count-1 do
  begin
   s:=Memo1.Lines[i];
   j:=1;
   while j<=length(s) do
    begin
     while (pos(s[j],znaki)<>0) and (j<=length(s)) do inc(j);
     ns:=j;
     while (pos(s[j],znaki)=0) and (j<=length(s)) do inc(j);
     ks:=j;
     slovo:=copy(s,ns,ks-ns);
     //begin
  k:=0;
m := [];
 
 while (pos(slovo[j],znaki)=0) and (j<=length(s)) do
if not (slovo[i] in m) then
 begin
 m := m + [slovo[j]];
 k := k + 1;
end;
if k <= 3 then L1.Append(slovo);
end;   end;
  //end;
 
 L1.Sorted:=true;
 for i:=0 to L1.Count-1 do Memo2.Lines.Add(L1[i]);
 L1.free; 
 if Memo2.Lines.Count=0 then Memo2.Lines.Append('Таких слов нет!');
end;