Function TersCevir(no:String):String;
var
Cevrilen:String;
i:Integer;
Begin
i:= 0;
Cevrilen := '';
For i := length(no) DownTo 1 Do
Begin
Cevrilen := Cevrilen + no[i];
End;
Result := Cevrilen;
End;

Function Numarator(no:String):String;
var
Nmr, Temp, Temp1:String;
Temp2:Char;
i, Tmp:Integer;
Begin
nmr := TersCevir(no);
i:= 0;
while i < length(no) Do
Begin
i := i + 1;
if nmr[i] = '9' Then
begin
nmr[i] := '0';
continue;
End
Else
if (nmr[i] < '9') and (nmr[i] >= '0') Then
Begin
Temp := inttostr(StrToInt(nmr[i]) + 1);
Tmp := i;
Break;
end;
if nmr[i] = 'Z' Then
begin
nmr[i] := 'A';
continue;
End
Else
if (nmr[i] < 'Z') or (nmr[i] >= 'A') Then
Begin
Temp := inttostr(ord(nmr[i]));
Temp := intToStr(StrToInt(Temp) + 1);
Temp := Chr(StrToInt(Temp));
Tmp := i;
Break;
end;
End;
i:= 0;
while i < length(no) do
Begin
i := i + 1;
if tmp = i Then
if (temp[1] <= '9') and (temp[1] >= '0') Then
nmr[i] := temp[1]
Else
Begin
nmr[i] := Temp[1];
End;
nmr[i] := nmr[i];
End;

result := TersCevir(nmr);
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(Numarator('DZ9999'));
end;

procedure TForm1.Button1Click(Sender: TObject);
Const Dizi:array[0..39] of string =
('0','1','2','3','4','5','6','7','8','9','A','B','C',
'Ç','D','E','F','G','Ğ','H','I','İ','J','K','L',
'M','N','O','Ö','P','R','S','Ş','T','U','Ü','V','Y','Z','0');

Function TersCevir(no:String):String;
var
Cevrilen:String;
i:Integer;
Begin
Cevrilen := '';
For i := length(no) DownTo 1 Do
Begin
Cevrilen := Cevrilen + no[i];
End;
Result := Cevrilen;
End;

Function FindChar(c:String):integer;
var
i:Integer;
Begin
Result:=-1;
For i := 0 To 38 Do
if Dizi[i] = c then begin
Result:= i;
Exit;
end;

End;

VAR iLoop1:integer;
sInputText,sResult:string;
elde:boolean;
begin
elde:=false;
sInputText:= TersCevir(UpperCase(edit1.Text));
sResult:='';

for iLoop1:= 1 to Length(sInputText) do
begin
if iLoop1 = 1 then Elde:= TRUE;

if Elde then
begin
sResult:= Dizi[FindChar(sInputText[iLoop1])+1] +sResult;
Elde:= (FindChar(sInputText[iLoop1])+1 > 38);
end
else
sResult:= sInputText[iLoop1]+sResult;

end;
if Elde then sResult:= '1'+sResult;


showmessage(Edit1.Text +' + 1 --> '+sResult);
end;