1:

label2.caption:='Hier steht Deine Frage';                    

1:
2:

IF Frage.richtig then
  Label1.Caption:= 'neue Frage';                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
 Var
    X, Y, Z: integer;
begin
X:=StrToInt(Button1.1)
Y:=StrToInt(Label1.Text)
Z:= X+Y;
Label1.Caption:=IntToStr(z);
end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var richtig, flasch : integer;
begin
// "eingabe"
richtig:=strtoint(richtiglabel.caption);
falsch:=strtoint(falschlabel.caption);
// verarbeitung
// welches genommen wird klärst du mit ner if-abfrage
//if ... then
{falsch:=falsch+1;} 
//else
{richtig:=richtig+1;}
// ausgabe
richtiglabel.caption:=inttostr(richtig);
falschlabel.caption:=inttostr(falsch);
end;                    

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

procedure TForm1.Button1Click(Sender: TObject);
var
  x, y: Integer;
begin
  x := StrToInt(Label1.Caption);
  y := x + 1;
  Label1.Caption := IntToStr(y);
end;

end.