Noktalama eleme ve listboxa aktarım

[y.emrekoc]

Forumdan bir arkadaşımızın yapmış olduğu cümledeki kelimeleri sayan program
fakat . ! , ? bunlarıda kelime olarak alıyor bunları nasıl ayırırım bide listboxa aktarmam gerekiyor her kelimeyi
yardımcı olun delphiyle aram pek yoktur.
şimdiden Teşekkürler

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);

var
SL: TStringList;
begin
      SL:= TStringList.Create;
      try
      SL.Delimiter := ' ';
      SL.DelimitedText := Trim(Edit1.Text);

      ShowMessage(Format('Kelime sayısı: %d', [SL.Count]));


      finally
      SL.Free;

       end;

end;