Gracias egostar, Caral y Delphius.
El codigo de egostar esta trabajando bien.
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin case strtoint(edit1.text) of
3,4: Shape1.Brush.Color := clRed;
5,6: Shape1.Brush.Color := clYellow;
7,8,9,10,11,12: Shape1.Brush.Color := clGreen;
else Showmessage('Este programa no soporta ese valor');
end;
end;
Los colores y el shape solo son para poder entender mejor la idea, que es a partir de una costante que se tendra que poner en un edit o en un ComboBox poder selecionar que mandare a algun lugar ( por ejemplo serial port).Que mi programita tome en cuenta que parametros estoy poniendo para el determinar un camino.
Creo que un combobox es mas elegante y de una vez solo pondre los valores que quiro tener, o que soportara mi programita.
Un Saludo y mil gracias por la ayuda.