[Delphi] Frage wegen eines rechners

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
var 
 string1: string; 
begin 
 string1:=edit1.text; 
 
 //allgemeine Sperrung von allen Zeichen ausser 
 //backspace, (-) , (,) und Zahlen 
 if not (key in[#8,#44,#45,#48..#57]) then key:=#0; 
 
 // das Minus darf nur am Anfang benutzt werden 
 if (edit1.selstart <> 0) and( key=#45) then key:=#0; 
 
 // nur ein Komma 
 if (pos(#44,string1)>0) and (key=#44) then key:=#0; 
 
 // kein Komma am Anfang 
 if (edit1.SelStart=0) and (key= #44) then key:=#0; 
 
 // Kein -,xxx 
 if (edit1.selstart=1) and 
 (string1[1]='-') and 
 (key=#44) then 
 key:=#0; 
end;