[[coso]]

hola, tendrias que hacer una enumeration

Código Delphi [-]
type TLetraABoC = (ltA,ltB,ltC);

procedure MiFuncion(a : TLetraABoC);
begin
end;

MiFuncion(ltA);