[[Delphius]]

O algo como esto:

Código Delphi [-]
function RandomStr: string;
const
ABC = 'ABC...Z';
begin
  result := ABC[Random(Length(ABC))+1];
end;

No la he probado pero creo que funciona.