delphi

huhu kann mir jemand bei folgenden Programmm helfen?
will das die werte der einzelnen Fharzeuge in die tabelle eingetragne werden,...
kann mir denken das es viel arbeit is sich des zu überlegen aber fände es echt super net wenn mir jemand helfen könnte.. bin nähmlich grad total am verzweifeln

ps. sind zwei units

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Fahrzeugauswahl: TRadioGroup;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
StringGrid1: TStringGrid;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

Type Kfzart = (PKW, LKW, Motorrad);
Fahrzeugtyp = record
Baujahr:integer;
case KFZ: KFZart of
PKW: (Sitze:Byte);
LKW: (Achsen,Nutzlast: Integer);
Motorrad:(Seitenwagen: Boolean);


end;
var

KFZFELD: array[1..5] of fahrzeugtyp;
LAufvar:Byte;
Wahl:Char;

implementation


uses unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Laufvar:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

Laufvar:=laufvar+1;
Edit2.text:= inttostr(laufvar);
if Laufvar <= 5 then
begin
KFZFeld[Laufvar].Baujahr:=strtoint(edit1.text);

case Fahrzeugauswahl.ItemIndex of

0: begin
KFZFeld[Laufvar].KFZ:=PKW;
form2.label1.caption:="Anzahl der Sitze";
// KFZfelf[laufvar].sitze:=strtoint]
form2.edit2.text:="******************************";
form2.edit2.readonly:=true;
form2.showmodal;
form2.label1.caption:="";
form2.label2.caption:="";
end; {PKW}

1: begin
KFZFeld[Laufvar].KFZ:=LKW;
form2.show;
form2.label1.caption:="Achsen";
form2.label2.caption:="Nutzlast";
form2.edit2.text:="";
form2.edit2.readonly:=false;
form2.label1.caption:="";
form2.label2.caption:="Tonnen";
end; {LKW}

2: begin
KFZFeld[Laufvar].KFZ:=Motorrad;
form2.show;
form2.label1.caption:="Seitenwagen";
form2.label2.caption:="";
form2.edit2.text:="******************************";
form2.edit2.readonly:=true;
form2.label1.caption:="";
form2.label2.caption:="";
end;

end;
end; {MOTOrrad}
end;//CASE

procedure TForm1.Button2Click(Sender: TObject);

var i: integer;
begin

Form1.stringgrid1.cells [0,0]:= "Fahrzeuge";
Form1.stringgrid1.cells[0,1]:="PKW";
Form1.stringgrid1.cells[0,2]:="LKW";
Form1.stringgrid1.cells[0,3]:="Motorrad";
Form1.stringgrid1.cells[1,0]:="Baujahr";
Form1.stringgrid1.cells[2,0]:="Sitze";
Form1.stringgrid1.cells[3,0]:= "Seitenwagen";
Form1.stringgrid1.cells[4,0]:= "Achsen";
Form1.stringgrid1.cells[5,0]:= "Nutzlast";

for i:=1 to 5 do
case KFZFeld[i].KFZ of Pkw:
begin
Form1.stringgrid1.cells [1,1]:=inttostr(KFZFeld[2].Baujahr);
Form1.stringgrid1.cells[2,1]:=inttostr(KFZFeld[2].Baujahr);
end;
Lkw:
begin
Form1.stringgrid1.cells [1,2]:=inttostr(KFZFeld[2].Baujahr);
Form1.stringgrid1.cells [5,2]:=inttostr(KFZFeld[4].nutzlast);
Form1.stringgrid1.cells [4,2]:=inttostr(KFZFeld[4].Achsen)
end;
Motorrad:
begin
Form1.stringgrid1.cells [1,3]:=inttostr(KFZFeld[5].Baujahr);

end;
end;
end;
end.

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm2 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form2: TForm2;

implementation

uses Unit1;


{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin

begin

if modalresult= mrok then begin
if form1.Fahrzeugauswahl.itemindex=0 then begin
KFZFeld[laufvar].sitze:=strtoint(edit1.text);
form2.hide;
end
else
begin
KFZFeld[laufvar].Achsen:=strtoint(edit1.text);
KFZFeld[laufvar].Nutzlast:=strtoint(edit1.text);
form2.hide;
end;
end;
end;


end;






end.