fehler in label ausgeben.

[ph0]

hallo,
ich habe 5 edit felder in die jeweils ein zahlenwert eingetragen wird. dieser darf jedoch nur in einem bestimmten bereich liegen (in jedem feld ein anderer). wenn jetzt eine eingegebene zahl nicht im bereich liegt soll beim klicken auf den button im label eine auflistung der fehler angezeigt werden.
so sieht meine idee bis jz aus:

Delphi-Quellcode:

var
  Form1: TForm1;
  x: integer;
  Ejg: string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
x:=strtoint(edit1.Text);
Ejg:=(' - Zahl in feld 1 höher als 1000');
if x>1000 then
Label1.caption:='Folgende Angaben sind falsch:'+chr(13)+Ejg;
end;

da es ja aber sehr viele verschiedene möglichkeiten gibt, frage ich mich wie ich das evtl vereinfachen kann, um nicht jede mögliche fehlersituation mit eine if then abfrage durchzugehen.

gruß