[Tutorial Delphi ] Criando um Gerador de Nick

function Procode(ProtectoR: string; Pro: integer; Code: integer): string;
begin
Result := Copy(ProtectoR, Pro, Code);
end;

var
ProtectoR: String;
begin
ProtectoR:= Procode(Edit1.Text,Length(Edit1.Text),Length(Edit1.Text) + 1);
If ProtectoR = 'a' Then ProtectoR := 'A';
If ProtectoR = 'b' Then ProtectoR := 'B';
If ProtectoR = 'c' Then ProtectoR := 'C';
If ProtectoR = 'd' Then ProtectoR := 'D';
If ProtectoR = 'e' Then ProtectoR := 'E';
If ProtectoR = 'f' Then ProtectoR := 'F';
If ProtectoR = 'g' Then ProtectoR := 'G';
If ProtectoR = 'h' Then ProtectoR := 'H';
If ProtectoR = 'i' Then ProtectoR := 'I';
If ProtectoR = 'j' Then ProtectoR := 'J';
If ProtectoR = 'k' Then ProtectoR := 'K';
If ProtectoR = 'l' Then ProtectoR := 'L';
If ProtectoR = 'm' Then ProtectoR := 'M';
If ProtectoR = 'n' Then ProtectoR := 'N';
If ProtectoR = 'o' Then ProtectoR := 'O';
If ProtectoR = 'p' Then ProtectoR := 'P';
If ProtectoR = 'q' Then ProtectoR := 'Q';
If ProtectoR = 'r' Then ProtectoR := 'R';
If ProtectoR = 's' Then ProtectoR := 'S';
If ProtectoR = 't' Then ProtectoR := 'T';
If ProtectoR = 'u' Then ProtectoR := 'U';
If ProtectoR = 'v' Then ProtectoR := 'V';
If ProtectoR = 'w' Then ProtectoR := 'W';
If ProtectoR = 'x' Then ProtectoR := 'X';
If ProtectoR = 'y' Then ProtectoR := 'Y';
If ProtectoR = 'z' Then ProtectoR := 'Z';
Edit2.Text := Edit2.Text + ProtectoR;

Edit1.Clear;
Edit2.Clear; //para limpar os campos