procedure TFormTR.SpZahlClick(Sender: TObject);
VAR Nr : INTEGER;
begin
   if LabelAnzeige.caption='0' then LabelAnzeige.caption:='';
   if LabelAnzeige.caption='Error' then LabelAnzeige.caption:='';
   FOR Nr := 0 TO 9 DO
       if Sender = SpArray[Nr]
          then LabelAnzeige.caption:=LabelAnzeige.caption+chr(Nr+ord('0'));
   if sender = SpDecimalSep then LabelAnzeige.caption:=LabelAnzeige.caption+',';
end;