unit UnitProgramm;

interface

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

type
  TForm1 = class(TForm)
    EditIch: TEdit;
    EditMT: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    EditHM: TEdit;
    EditGegner: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    ButtonClose: TButton;
    ButtonStart: TButton;
    EditHG: TEdit;
    EditGT: TEdit;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    EditSpieler: TEdit;
    Label14: TLabel;
    EditWinner: TEdit;
    Label15: TLabel;
    LabelWinner: TLabel;
    EditSumme: TEdit;
    Label16: TLabel;
    Label17: TLabel;
    EditRunde: TEdit;
    Label18: TLabel;
    procedure ButtonCloseClick(Sender: TObject);
    procedure ButtonStartClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ButtonCloseClick(Sender: TObject);
begin
     close;
end;

procedure TForm1.ButtonStartClick(Sender: TObject);
var i,j,a:integer;
    meinTipp,seinTipp,meinHolz,seinHolz:integer;
begin
     randomize;
     i:=StrToInt(editIch.text);
     j:=StrToInt(editGegner.text);
     meinTipp:=StrToInt(editMT.text);
     editGT.text:=IntToStr(seinTipp);
     meinHolz:=StrToInt(editHM.text);
     editHG.text:=IntToStr(seinHolz);
     editSumme.text:=IntToStr(seinHolz+meinHolz);
     a:=0;
     repeat
           a:=a+1;
           if (a=1) then begin
                              seinHolz:=1+random(4);
                              seinTipp:=random(2+random(7));
                              if (meinTipp=(seinHolz+meinHolz)) then begin
                                                                     i:=i-1;
                                                                     editSpieler.text:='Ich'
                                                                     end
                                                                else i:=i;
                                 editIch.text:=IntToStr(i);
                              if (seinTipp=(meinHolz+seinHolz)) then begin
                                                                     j:=j-1;
                                                                     editSpieler.text:='Gegner'
                                                                     end
                                                                else j:=j;
                                 editGegner.text:=IntToStr(j);
                         end
                    else seinHolz:=random(j+1);
                         seinTipp:=random((i+j)+1);
                         begin
                              if (meinTipp=(seinHolz+meinHolz)) then begin
                                                                     i:=i-1;
                                                                     editSpieler.text:='Ich';
                                                                     end
                                                                else i:=i;
                              if (i=0) then editWinner.text:='Ich';
                                       editIch.text:=IntToStr(i);
                              if (seinTipp=(meinHolz+seinHolz)) then begin
                                                                     j:=j-1;
                                                                     editSpieler.text:='Gegner';
                                                                     end
                                                                else j:=j;
                              if (j=0) then editWinner.text:='Computer';
                                       editGegner.text:=IntToStr(j);
                         end
     until (j=0) or (i=0);

     if (i=0) then editWinner.text:='Ich'
     if (j=0) then editWinner.text:='Computer';

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
     editIch.text:='3';
     editGegner.text:='3';
end;

end.