[[oscarac]]

Puedes revisar por el metodo Onchange del edit
seria "algo mas o menos asi"

Código Delphi [-]
 
procedure TfrmValesdeConsumo.edtTrabajadorChange(Sender: TObject);
begin
if Copy(edtTrabajador.Text,1,2) <> '02' and 
  Copy(edtTrabajador.Text,1,2) <> '27' and 
  Copy(edtTrabajador.Text,1,2) <> '30' Then
  edtTrabajador.SetFocus