Свой тип

[remus-xe2]

Господа, у меня в процедуру передаются значение например...

Procedure testtest(id, mode: String);

Mode может быть или test или work, к примеру....
Сейчас я это строкой передаю, что конечно, работает, но не правильно это... Могу к примеру буквой ошибиться при вызове процедуры...

Хочу не строкой передавать а своими типом каким нибудь...
Как это сделать? В пределах процедуры объявить свой тип который может принимать одно из нескольких значений ?
Другими словами, так хочу процедуру вызывать:

testtest(id, work);

или

testtest(id, test);

Ввел например не "test" а "tst" и все, приложение не откомпилировалось...

[remus-xe2]

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

 type TMyMode = (work, test);

implementation

{$R *.dfm}

Procedure Tests(mode: TMyMode);
begin
    if mode = work then beep;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Tests(work);
end;

end.

Все, понял, может кому то поможет...