Abstrakter Fehler

[Martin W]

So.. mal die gesamte Form wo es "knallt"

Delphi-Quellcode:

unit neues_produkt_unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, jpeg, JvGIF, ExtCtrls;

type
  Tneues_produkt_form = class(TForm)
    Image1: TImage;
    Image3: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label23: TLabel;
    Image2: TImage;
    Image4: TImage;
    Label8: TLabel;
    Label7: TLabel;
    Image7: TImage;
    Image8: TImage;
    StatusBar1: TStatusBar;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  neues_produkt_form: Tneues_produkt_form;

implementation

{$R *.dfm}

procedure Tneues_produkt_form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  self.free;
end;

procedure Tneues_produkt_form.Button1Click(Sender: TObject);
begin
  self.close;
end;

end.

Beim Klick auf Button1 knallt es dann mit der oben gennanten Fehlermeldung.