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