function UpperCaseTr(Str:String) : String;
Const
buyukharf:String='ÇĞIİÖŞÜ';
kucukharf:String='çğıiöşü';
Var
I :Integer;
NewStr:String;
Begin
NewStr:='';
For I:=1 To Length(Str) Do
if Pos(Str[I],kucukharf)>0 Then
NewStr:=NewStr+buyukharf[Pos(Str[I],kucukharf)]
Else
NewStr:=NewStr+UpperCase(Str[I]);
Result:=NewStr;
End;

function LowerCaseTr(Str:String) : String;
Const
buyukharf:String='ÇĞIİÖŞÜ';
kucukharf:String='çğıiöşü';
Var
I :Integer;
NewStr:String;
Begin
NewStr:='';
For I:=1 To Length(Str) Do
if Pos(Str[I],buyukharf)>0 Then
NewStr:=NewStr+kucukharf[Pos(Str[I],buyukharf)]
Else
NewStr:=NewStr+LowerCase(Str[I]);
Result:=NewStr;
End;