1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, 
  ARow: Integer; const Value: String); 
Var strbuffer : String; 
    spalte : Integer; 
begin 
  with stringgrid1 do 
    begin 
     if cells[acol,arow] <> '' then 
       begin 
         Strbuffer := cells[acol,arow]; 
         tabelle[acol,arow] := Strtofloat(Strbuffer); 
         tabelle[acol + 1,arow] := tabelle[acol,arow] + StrtoFloat(edit1.text); 
         tabelle[acol + 2,arow] := tabelle[acol + 1,arow] + StrtoFloat(edit2.text); 
         cells[acol + 1,arow] := FloattoStr(tabelle[acol + 1,arow]); 
         cells[acol + 2,arow] := FloattoStr(tabelle[acol + 2,arow]); 
     end; 
    end; 
  summe(acol); 
  spalte := 2; 
  summe(spalte); 
  spalte := 3; 
  summe(spalte); 
end; 

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); 
begin 
  case key of 
    ',':     key := '.'; 
    'o','O': key := '0'; 
  end; 
  if not (key in ['0'..'9','.','-',chr(8)]) then key := #0; 
end;