1:
2:
3:
4:
5:
6:
7:
8:

procedure save(squadnumber:integer;truppfuehrer,truppmann1:string);
var ini:tinifile;
begin
ini:=tinifile.create(extractfilepath(paramstr(0))+'squads.ini');
ini.writestring('squad_'+inttostr(squadnumber),'Truppführer',truppfuehrer);
ini.writestring('squad_'+inttostr(squadnumber),'Truppmann1',truppmann1);
ini.free;
end;					

1:
2:
3:
4:
5:
6:
7:

     button_save:=tbutton.create(newsquad);
     with button_save do
          begin
          parent:=newsquad;
          setbounds(700,400,80,40);
          caption:='Speichern';
          end;					

1:
2:
3:
4:
5:
6:
7:
8:

newsquad:=tform.Create(application);
with newsquad do
     begin
     SetBounds(50,50,800,500);
     Color:=clblue;
     Caption:='Angriffstrupp '+inttostr(squadnumber);
     visible:=true;
     end;					

1:

procedure save(squadnumber:integer;truppfuehrer,truppmann1:string);					

1:
2:
3:

type TNotifyEvent = procedure (Sender: TObject) of object;

property OnClick: TNotifyEvent;