Wenn ich das richtig verstehe willst du die 5 Edits alle darauf überprüfen lassen, ob die zahl in dem bereich is...
wenn du sie durchgehend benennst (Edit1, Edit2, Edit3,...) dann würd ich das so machen.
Delphi-Quellcode:
for i := 1 to 5 do
begin
case StrToInt(TEdit(FindComponent('Edit'+IntToStr(i))).Text) of
-1000..-1 : Showmessage('Zahl in Edit'+IntToStr(i)+' zwischen -1000 und -1');
0..1000 : Showmessage('Zahl in Edit'+IntToStr(i)+' zwischen 0 und 1000');
end;
end;
Müsst gehn, ungetestet