delphiden yardım edinnnnn

merhaba arkadaşlar benim bi sorunun var delphide . dan sonraki harfi nasıl büyük harfe cevirebilirm

1.Önce bahsi geçen string'deki nokta(.)nın yerini bulursun...

2.Sonra da belirlediğin yerden itibaren olan stringi alırsın,

3.Son olarak da o aldığın stringi büyük harfe çevirirsin...

Şimdi kodlar:

procedure TForm1.Button1Click(Sender: TObject);
var
Uz,PosN:Integer;
Str1,Str2,Str3:String;
begin
Str1:='Tekin.birinci';
PosN:=Pos('.',Str1);
Uz:=Length(Str1);
Str3:=Copy(Str1,0,PosN-1);
Str1:=Copy(Str1,PosN,Uz);
Str2 :=AnsiupperCase(Str1);
ShowMessage(Str2);//Büyük harfli kısım...
ShowMessage(Str3+Str2);//Tamamı...
end;

Bir de harf çevirimi ile ilgili aşağıdakini incele(bu kısım alıntı)...

Bir string içindeki tüm küçük harfli karekterleri büyük harfe dönüştürür.
Normalde Ansi ile başlayan tüm fonksiyonlar windowsa tanıtılmış dillere destek
verir, yani AnsiUpperCase fonksiyonun türkçe karekter sorunu olmaması gerekirken
yani türkçe karekterleri (Ğ,Ü,Ş,İ,Ö,Ç) büyük harfe dönüştürme işlemi yapması
gerekirken bu fonksiyon sadece i harfini büyük harfe dünüştürememektedir. Yani
küçük i harfini büyük I yapmaktadır.
Aşağıdaki örneği inceleyiniz.

Kullanımı : AnsiUpperCase(const S: string): string;

Örnek :

Uses SysUtils;
procedure TForm1.Button2Click(Sender: TObject);
var
  s1,s2: string;
begin
  s1 := 'BiR STRING iÇİNDEKİ TÜM KÜÇÜK Harfleri Büyük Harf Yapar. Ama Türkçe '+
  'karekterlerden  sadece küçük i dönüştürülemez. Örneğin küçük i';
  s2 :=AnsiupperCase(S1);
  begin
    Showmessage(S2);
  end;
  end;
end;