image verschwindet bei eingabe bzw. klick?

[CR3ATiV3]

ihr wollt echt das ich hier nachdenke was (und sachaufgaben sind eh nicht so mein ding -.-)

aber ich habe es schon allein hinbekommen gerade .

Delphi-Quellcode:

unit Unit3; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ComCtrls, Buttons, ExtCtrls, types;

type

  { TForm3 }

  TForm3 = class(TForm)
    AbbrechenBitBtn1: TBitBtn;
    AbbrechenBitBtn2: TBitBtn;
    AbbrechenBitBtn3: TBitBtn;
    AbbrechenBitBtn4: TBitBtn;
    AbbrechenBitBtn5: TBitBtn;
    ALabel2: TLabel;
    ALabel3: TLabel;
    ALabel4: TLabel;
    ALabel5: TLabel;
    AntwortARadioButton2: TRadioButton;
    AntwortARadioButton3: TRadioButton;
    AntwortARadioButton4: TRadioButton;
    AntwortARadioButton5: TRadioButton;
    AntwortBRadioButton3: TRadioButton;
    AntwortBRadioButton4: TRadioButton;
    AntwortBRadioButton5: TRadioButton;
    AntwortBRadioButton6: TRadioButton;
    AntwortCRadioButton4: TRadioButton;
    AntwortCRadioButton5: TRadioButton;
    AntwortCRadioButton6: TRadioButton;
    AntwortCRadioButton7: TRadioButton;
    AntwortDRadioButton5: TRadioButton;
    AntwortDRadioButton6: TRadioButton;
    AntwortDRadioButton7: TRadioButton;
    AntwortDRadioButton8: TRadioButton;
    BLabel3: TLabel;
    BLabel4: TLabel;
    BLabel5: TLabel;
    BLabel6: TLabel;
    CLabel4: TLabel;
    CLabel5: TLabel;
    CLabel6: TLabel;
    CLabel7: TLabel;
    DLabel5: TLabel;
    DLabel6: TLabel;
    DLabel7: TLabel;
    DLabel8: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    FrageaLabel2: TLabel;
    FrageaLabel3: TLabel;
    FrageaLabel4: TLabel;
    FrageaLabel5: TLabel;
    Image13: TImage;
    Image14: TImage;
    Image15: TImage;
    Image16: TImage;
    Image17: TImage;
    Image18: TImage;
    Image19: TImage;
    Image20: TImage;
    Image21: TImage;
    Image22: TImage;
    Image23: TImage;
    Image24: TImage;
    Image25: TImage;
    Image26: TImage;
    Image27: TImage;
    ImageList1: TImageList;
    weiterBitBtn2: TBitBtn;
    Edit1: TEdit;
    FrageaLabel1: TLabel;
    GroupBox1: TGroupBox;
    ALabel1: TLabel;
    BLabel2: TLabel;
    CLabel3: TLabel;
    DLabel4: TLabel;
    Quiz: TPageControl;
    Level1: TTabSheet;
    Level2: TTabSheet;
    Level3: TTabSheet;
    Level4: TTabSheet;
    Level5: TTabSheet;
    AntwortARadioButton1: TRadioButton;
    AntwortBRadioButton2: TRadioButton;
    AntwortCRadioButton3: TRadioButton;
    AntwortDRadioButton4: TRadioButton;
    weiterBitBtn3: TBitBtn;
    weiterBitBtn4: TBitBtn;
    weiterBitBtn5: TBitBtn;
    weiterBitBtn6: TBitBtn;
    procedure AbbrechenBitBtn1Click(Sender: TObject);
    procedure AntwortARadioButton1Change(Sender: TObject);
    procedure AntwortBRadioButton2Change(Sender: TObject);
    procedure AntwortBRadioButton2Click(Sender: TObject);
    procedure AntwortBRadioButton3Click(Sender: TObject);
    procedure AntwortCRadioButton3Change(Sender: TObject);
    procedure AntwortCRadioButton2Click(Sender: TObject);
    procedure AntwortCRadioButton3Click(Sender: TObject);
    procedure AntwortDRadioButton4Change(Sender: TObject);
    procedure AntwortDRadioButton2Click(Sender: TObject);
    procedure AntwortDRadioButton3Click(Sender: TObject);
    procedure weiterBitBtn2Click(Sender: TObject);
    procedure weiterBitBtn3Click(Sender: TObject);
    procedure weiterBitBtn4Click(Sender: TObject);
    procedure weiterBitBtn5Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form3: TForm3; 

implementation

{$R *.lfm}

{ TForm3 }


{ TForm3 }

procedure TForm3.AntwortARadioButton1Change(Sender: TObject);
begin
    Edit1.Caption:= 'Richtig! :)';
    Edit1.Font.Color:= clgreen;
end;

procedure TForm3.AbbrechenBitBtn1Click(Sender: TObject);
begin
  close;
end;

procedure TForm3.AntwortBRadioButton2Change(Sender: TObject);
begin
   Edit1.Caption:= 'Leider falsch! :(';
   Edit1.Font.Color:= clred;
   Image15.Visible := False;
end;

procedure TForm3.AntwortBRadioButton2Click(Sender: TObject);
begin
   Image14.Visible:= False;
end;

procedure TForm3.AntwortBRadioButton3Click(Sender: TObject);
begin
   Image13.Visible:= False;
end;

procedure TForm3.AntwortCRadioButton3Change(Sender: TObject);
begin
  Edit1.Caption:= 'Versuche es nochmal!';
  Edit1.Font.Color:= clred;
  Image15.Visible:= False;
end;

procedure TForm3.AntwortCRadioButton2Click(Sender: TObject);
begin
  Image14.Visible:= False;
end;

procedure TForm3.AntwortCRadioButton3Click(Sender: TObject);
begin
   Image13.Visible:= False;
end;
procedure TForm3.AntwortDRadioButton4Change(Sender: TObject);
begin
  Edit1.Caption:= 'Falsch!';
  Edit1.Font.Color:= clred;
  Image15.Visible:= False;
end;

procedure TForm3.AntwortDRadioButton2Click(Sender: TObject);
begin
  Image14.Visible:= False;
end;

procedure TForm3.AntwortDRadioButton3Click(Sender: TObject);
begin
   Image13.Visible:= False;
end;

procedure TForm3.weiterBitBtn2Click(Sender: TObject);
begin
  Edit1.Caption:= 'Super! Du bist hast das Level gschafft! :)';
  Edit1.Font.Color:= clblack;
  Level2.show;
end;

procedure TForm3.weiterBitBtn3Click(Sender: TObject);
begin
  Level3.show;
end;

procedure TForm3.weiterBitBtn4Click(Sender: TObject);
begin
  Level4.show;
end;

procedure TForm3.weiterBitBtn5Click(Sender: TObject);
begin
  Level5.show;
end;

end.

ist das so richtig?