Leertaste und Funktion

[kaddy]

Geht bei mir leider nicht. Habe mal meinen Code dazugepackt. Vielleicht kann mir ja einer helfen. Danke!

Delphi-Quellcode:

procedure TForm1.Eingabefeldonkeydown(Sender: TObject; var Key: Word;
  Shift: TShiftState);

var
i: integer;
j: integer;

  begin

  
  
 //Eingabe der Maschinendaten
  Label1.caption:='Anzahl Maschinen eingeben';
  if key=13 then
        begin
        mac:=strtoint(Eingabefeld.text);
        end;


 //Eingabe der Periodenanzahl
  Label1.caption:='Anzahl Perioden eingeben';
     if key=13 then
        begin
        per:=strtoint(Eingabefeld.text);
        end;


  //Eingabe der Kapazitäten der Maschinen je Periode
  Label1.Caption:=('Die Kapazitäten der '+inttostr(mac)+ ' eingeben:');
  i:=1;
  j:=1;
  while i<mac+1 do
     begin
     while j<per+1 do
        begin
        Label2.Caption:=('Periode '+inttostr(i)+'Maschine'+inttostr(j));
        machine[per,mac].cap:=strtoint(Eingabefeld.text);
        j:=j+1;
        end;
     i:=i+1;
     j:=1;
     end;  


end;

Gruß
Kaddy 8)