if then abfrage einfacher

[sushi-Chef]

Hallo,

ich bin neu was Delphi angeht. Und da ich noch nicht so versiert bin und mir auch sicher bin das man es besser machen kann wollte ich fragen, wie man diesen Code verbessern kann.

Delphi-Quellcode:

var
  ST,GE,KO,WE,INT,CH: integer;
...
if edAtrWST.Text = '' then
 ST := 0
  else
 ST := StrToInt(edAtrWST.Text);

if (ST = 0) or (ST = 1) then
 edAtrMST.Text := '-5';
if (ST = 2) or (ST = 3) then
 edAtrMST.Text := '-4';
if (ST = 4) or (ST = 5) then
 edAtrMST.Text := '-3';
...
 edAtrMST.Text := '+4';
if (ST = 20) or (ST = 21) then
 edAtrMST.Text := '+5';
if (ST = 21) or (ST = 22) then
 edAtrMST.Text := '+6';
if (ST = 23) or (ST = 24) then
 edAtrMST.Text := '+7';
if (ST = 25) or (ST = 26) then
 edAtrMST.Text := '+8';

Zudem würde ich es gerne irgendwie einrichten, dass das Programm das selber weiterführen könnte (also 27 oder 28 +9...), ohne das ich für jede zahl eine if-abfrage machen muss.
Vielen dank für die hilfe.

[edit=SirThornberry]Programmiersprache korrigiert - Mfg, SirThornberry[/edit]