procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
    s, st: string;
begin
 Memo1.Lines.LoadFromFile('soso.txt');
 s:=Memo1.Text;
 while pos('*',s)>0 do
  delete(s, pos('*',s),1);
 while pos(#13#10,s)>0 do
  delete(s,pos(#13#10,s),2);
 while pos('.',s)>0 do
  begin
    st:=Copy(s,pos('.',s),pos(';',s));
    delete(s,pos('.',s),pos(';',s));
    ListBox1.Items.Add(st);
    st:='';
  end;
end;