"if x, then x and x , else " problemer

hele koden ser sån her ud:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    Memo1: TMemo;
    procedure RadioGroup1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  AntalRigtige: Integer;

implementation

{$R *.dfm}
var
Nr: Integer;
Svar: array[1..10] of Integer;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
If Radiogroup1.Itemindex=Svar[Nr]
then ShowMessage('Korrekt svar') and AntalRigtige:= AntalRigtige+1;
else ShowMessage('taber');
Nr:=Nr+1;
If Nr<=10 then Memo1.Lines.LoadFromFile('spg'+IntToStr(Nr)+'.txt')
else Showmessage('Du havde IntToStr(AntalRigtige) rigtige!');
Radiogroup1.Itemindex:=-1
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Svar[1]:=2;
Svar[2]:=1;
Svar[3]:=2;
Svar[4]:=0;
Svar[5]:=0;
Svar[6]:=1;
Svar[7]:=1;
Svar[8]:=2;
Svar[9]:=0;
Svar[10]:=1;
Nr:=1;
AntalRigtige:=0;
Form1.Memo1.Lines.LoadFromFile('spg1.txt');

end;

end.

Et gæt er at du skal hav e det på 2 linier, altså
then
  then ShowMessage('Korrekt svar');
  AntalRigtige:= AntalRigtige+1;
else

Mit gæt er:

if Radiogroup1.Itemindex=Svar[Nr] then begin
    ShowMessage('Korrekt svar');
    AntalRigtige:= AntalRigtige+1;
end else begin
    ShowMessage('taber');
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  If Radiogroup1.Itemindex=Svar[Nr] then
  begin
    ShowMessage('Korrekt svar');
    AntalRigtige:= AntalRigtige+1;
  end
  else
    ShowMessage('taber');
  Nr:=Nr+1;
  If Nr<=10 then
    Memo1.Lines.LoadFromFile('spg'+IntToStr(Nr)+'.txt')
  else
    Showmessage('Du havde IntToStr(AntalRigtige) rigtige!');
  Radiogroup1.Itemindex:=-1
end;

Hvis du skal have to instruktioner i en if statement, skal de pakkes ind i en begin end;

Skidegodt;)

Et svar fra mig for begin end

Hvem fik point ?

De er vist ikke uddelt endnu !

Ikke fordi 30 point er meget, men af principielle grunde synes jeg at det er på tide at du lukker spørgsmålet.