Nächsten Buchstaben im Alphabet

[MisterNiceGuy]

Code:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  i : char; 
begin 
  if i='z' then showmessage('a')
  else begin
  i := 'a'; 
  inc(i); 
  ShowMessage(i);
  end; 
end;

das müsste jetzt gehen