1:

Timer1.Enabled:=False;					

1:

Timer1.Enabled:=True;					

1:
2:

If Not (Key In [#08, '0'..'9'])
Then Key:=#0;					

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:
33:
34:

procedure TForm1.Timer1Timer(Sender: TObject);
var i,b : integer;
begin
 max:=4294967295;
 timer1.interval:=max;
 for i := 1 to 8 do begin
  if (findcomponent('checkbox'+inttostr(i))as Tcheckbox).Checked = true then begin
   cfe[i]:=strtofloat(stringgrid1.cells[2,i+1]);
   cfl[i]:=strtofloat(stringgrid1.cells[3,i+1]);
   cgas[i]:=strtofloat(stringgrid1.cells[4,i+1]);
   m[i]:=strtofloat(stringgrid1.cells[5,i+1]);//variablen immer neu lesen
   T1[i]:=strtofloat(stringgrid1.cells[6,i+1]);
   Ts[i]:=strtofloat(stringgrid1.cells[7,i+1]);
   qs[i]:=strtofloat(stringgrid1.cells[8,i+1]);
   Tv[i]:=strtofloat(stringgrid1.cells[9,i+1]);
   qv[i]:=strtofloat(stringgrid1.cells[10,i+1]);
  end;
 end;
 button1.Enabled:=true;//falls zuschnell hintereinander gedrückt wird
 for b := 2 to 9 do begin
  if (stringgrid1.cells[2,b] <> '') and
     (stringgrid1.cells[3,b] <> '') and
     (stringgrid1.cells[4,b] <> '') and//bedingungen
     (stringgrid1.cells[5,b] <> '') and
     (stringgrid1.cells[6,b] <> '') and
     (stringgrid1.cells[7,b] <> '') and
     (stringgrid1.cells[8,b] <> '') and
     (stringgrid1.cells[9,b] <> '') and
     (stringgrid1.cells[10,b] <> '') then (findcomponent('checkbox'+inttostr(b-1))as Tcheckbox).Enabled:=true
      else begin//löschen von zeichen macht es rückgängig
      (findcomponent('checkbox'+inttostr(b-1))as Tcheckbox).Enabled:=false; (findcomponent('checkbox'+inttostr(b-1))as Tcheckbox).Checked:=false;
      end;
 end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Stoff1Click(Sender: TObject);
var i : integer;
begin// !!!stoffaussuchen (aus combobox)!!!
 if combobox1.Visible=false then combobox1.Visible:=true;//sichtbarkeit
 for i := 1 to 8 do begin
   if sender = findcomponent('stoff'+inttostr(i)) as TPanel then begin //wo?
     combobox1.top:= (findcomponent('stoff'+inttostr(i)) as TPanel).top;
     combobox1.Left:= (findcomponent('stoff'+inttostr(i)) as TPanel).Left + (findcomponent('stoff'+inttostr(i)) as TPanel).Width;
     s:=i;
   end;
 end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.ComboBox1Change(Sender: TObject);
var i,i3 : integer;
begin// !!!combobox abstimmung + übertragung auf zellen!!!
 for i := 2 to 10 do//abstimmung
  (findcomponent('combobox'+inttostr(i))as Tcombobox).ItemIndex :=  combobox1.ItemIndex;
 for i3 := 2 to 10 do begin
  stringgrid1.cells[i3,s+1]:=(findcomponent('combobox'+inttostr(i3))as Tcombobox).text;
 end;//zellen ausfüllen mit inhalt von combobox
 combobox1.visible:=false;//nach eingabe verschwinden lassen
 if (combobox1.Text=('Wasser')) or (combobox1.Text=('Eis(0°C)')) then begin
  stringgrid1.cells[2,s+1]:=('2,09');//spezifall wasser/dampf,eis
  stringgrid1.cells[3,s+1]:=('4,19');
  stringgrid1.cells[4,s+1]:=('1,86');
  stringgrid1.cells[7,s+1]:=('0');
  stringgrid1.cells[8,s+1]:=('334');
  stringgrid1.cells[9,s+1]:=('100');
  stringgrid1.cells[10,s+1]:=('2260');
 end;
end;					

1:

Key:=#0;					

1:

Label1.Caption:=Edit1.Text;					

1:

Label1.Caption:=FloatToStrDef((1323erer/34), 1,506);					

1:
2:
3:
4:

var a : real;
begin
 a := strtofloatDef(edit1.text)
end;