und der cod, wo die var's definiert werden:
Code:
if (Name.ItemIndex <> -1) and (Ort.ItemIndex <> -1) then
begin
if table1.State <> dsEdit then
table1.Edit;
//Einlesen der Variablen
wupb1 := Table1.FieldByName('Bahn1').AsInteger;
wupb2 := Table1.FieldByName('Bahn2').AsInteger;
wupb3 := Table1.FieldByName('Bahn3').AsInteger;
wupb4 := Table1.FieldByName('Bahn4').AsInteger;
wupb1d := Table1.FieldByName('Bahn1Drops').AsInteger;
wupb2d := Table1.FieldByName('Bahn2Drops').AsInteger;
wupb3d := Table1.FieldByName('Bahn3Drops').AsInteger;
wupb4d := Table1.FieldByName('Bahn4Drops').AsInteger;