procedure TForm1.Button1Click(Sender: TObject);

var i: integer;

begin

listbox1.Clear;

for i:=0 to memo1.lines.count-1 do

if length(memo1.lines.Strings)=strtoint(edit1.Text) then listbox1.items.add(memo1.lines.strings);

end;

procedure TForm1.Button2Click(Sender: TObject);

var i,j,k, nashel: integer;

Slovo, Simvol: string;

begin

listbox2.Clear;

for i:=0 to listbox1.Items.Count-1 do

begin

Slovo:=listbox1.Items;<br/>
for j:=1 to strtoint(edit1.Text) do<br/>
begin<br/>
Simvol:=Slovo[j];<br/>
nashel:=0;<br/>
for k:=0 to listbox2.Items.Count-1 do<br/>
if Simvol=listbox2.Items[k] then nashel:=1;<br/>
if nashel=0 then listbox2.Items.Add(Simvol);<br/>
end;<br/>
end;<br/>
<br/>
listbox2.Sorted:=true;<br/>
end;<br/>
<br/>
procedure TForm1.Button3Click(Sender: TObject);<br/>
var i: integer;<br/>
begin<br/>
edit2.Clear;<br/>
for i:=0 to listbox2.Items.Count-1 do<br/>
edit2.Text:=edit2.Text+listbox2.Items;

end;