if(strToint(edit1.Text)<0 or strToint(edit1.text)>255) then

 begin
  showmessage('有效值必须在0~255之间');
  edit1.Text:=intTostr(0);

 end

看了好久老是运行不了，帮忙找下哪错了

or  前  oR 后 必须单独括号  
if(strToint(edit1.Text)<0) or (strToint(edit1.text)>255)

但是这段代码还是有问题  仍需改进

进来学习。怪怪的代码。

if not (StrToInt(Edit1.Text) In [0..255]) then
begin
  showmessage('有效值必须在0~255之间');
  edit1.Text:=‘0’;
end;

改成这样比较好些。