Fórum Auto Incremento com Letra #424997

// Dessa forma funciona... mas se eu colocar um Label no lugar do Ord('A')
procedure TForm1.Button1Click(Sender: TObject);
var
  n: Byte;
begin
  n := Ord('A'); // RETORNA 65 QUE É O CERTO
  inc(n);
  Label1.Caption := char(n);
end;

 procedure TForm1.Button1Click(Sender: TObject);
var
  n: Byte;
begin
  n := Ord(Label1.Caption); // Label1.Capiton = 'A' mesmo assim me retorna 52!? De onde é esse 52??? é pra retorna 65... wtf!!!
  inc(n);
  Label1.Caption := char(n);
end;