Gereksiz noktalama işaretlerini ve boşluk ifadelerini silen

[Berdusbuyurur]

Merhaba arkadaşlar,
Bir kaç hafta önce "Girilen bir cümlenin kaç kelime olduğunu bulan Delphi Prog." başlığı altında bir konu açmıştım.Bunu C#'ta yazıp Delphi kodlarına çevirmek için yardım istemiştim aşağıdaki kodları bir arkadaşımız gönderdi saolsun.
Fakat şuanda bu programı biraz daha geliştirmem gerekiyor.Konu şu; "Girilen bir ifadedeki gereksiz noktalama ve boşluk ifadelerini düzelterek her cümlenin baş harfini büyüten ve ifadeyi düzgün bir şekilde gösteren program."
Aşağıya exe sinden alınan bir görüntüyü koyuyorum,yardımcı olan arkadaşlara şimdiden teşekkürler.

http://imageshack.us/photo/my-images/38 ... ntsky.jpg/

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;
end.

[Berdusbuyurur]

Beyler,nasıl yapabilirim fikir verebilecek yokmu?

[mkysoft]

döndü içerisinde tüm karakterleri kontrol edin. Öncesindeki karakter boşluk ünlem nokta ise büyük harfe çevirin. Ucase komutu büyük harf yapacaktır.