Hola: No se si te sirve o es lo que andas buscando pero lo siguiente te muestra que es lo que esta en mayuscula
Código Delphi
[-]function Mayuscula(Cad: string): string;
var
i: Integer;
begin
for i:= 1 to Length(Cad) do
if (Cad[i] in ['A'..'Z']) or (Cad[i] in ['0'..'9']) then
Result:= Result + Cad[i];
end;
procedure TForm1.Button1Click(Sender: TObject);
Var Texto : String;
begin
Texto := MAyuscula(Edit1.Text);
ShowMessage(Texto);
end;
Saludos