Este es un ejemplo:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := AnsiUpperCase('texto en minusculas');
end;
No tienes que implementar la función.. sólo debes invocarla.
Para tu caso debes hacer:
Código Delphi
[-]
pplabel8.Caption := AnsiUpperCase(letras1.AsString);
Saludos,
EDITO: corregí el error que amablemente me hizo saber jhonny