svarvalgmuligheder

Hej!
Jeg har i nogle år forsøgt at lave nogle simple programmer i Delphi4, nogle af disse programmer kan downloades fra min kone og mine hjemmesider www.bibel-skolen.dk jeg har købt og læst flere forskellige bøger om programmering i delphi, men en gang imellem støder jeg på et problem, som jeg ikke kan finde ud af, nu håber jeg at der er en expert, som kan hjælpe mig.
Mit ønske er at lave et program, som har feks tre spørgsmåls memoer (1-3) og tre svar memoer (4-6) en svar knap ud for hver svar memo, når programmet startes op vises alle tre svar memoer og alle tre svar knapper, men  kun spørgsmål et (memo1) nu er det feks memo5 der indeholder det rigtige svar og der skal derfor klikkes på knappen ud for den (knap 2) og denne memo og knap skal så blive usynlig og det næste spørgsmål skal komme frem (memo2) og så vider, det program jeg har ekspemeriteret med køre helt fint, bort set fra at det er lige meget hvilken knap jeg klikker på så registeres det som både et rigtig og et forkert svar.
Jeg håber at denne forklaring er fyldestgørende nok ellers vil jeg meget gerne giver de oplysninger der mangler.
Min e-mail adr er
bibel-skolen@vip.cybercity.dk

Med venlig hilsen

Hans Lauridsen



unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    Memo4: TMemo;
    Memo5: TMemo;
    Memo6: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
nret:string;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin
if nret = \'adam\' then
memo4.Visible:=false;
memo1.Visible:=false;
button1.visible:=false;
memo5.Visible:=true;
nret:=\'berta\';
if nret <> \'adam\' then
showmessage(\'Forkert-1\');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if nret = \'berta\' then
memo5.Visible:=false;
memo2.Visible:=false;
button2.visible:=false;
memo6.Visible:=true;
nret:=\'david\';
if nret <> \'berta\' then
showmessage(\'Forkert-2\');

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if nret = \'david\' then
memo6.Visible:=false;
memo3.Visible:=false;
button3.visible:=false;
if nret <> \'david\' then
showmessage(\'Forkert-3\');

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
nret:=\'adam\';
end;

end.