EAccess Violation Fehler

[Grolle]

Hier mal die ganze Unit.
Der Interface abschnitt ist leer

Code:

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    ColorDialog1: TColorDialog;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn1: TBitBtn;
    Label7: TLabel;
    Label8: TLabel;
    Edit6: TEdit;
    Label9: TLabel;
    Edit7: TEdit;
    Label10: TLabel;
    Edit8: TEdit;
    Label11: TLabel;
    Edit9: TEdit;
    BitBtn5: TBitBtn;
    Button1: TButton;
    Button2: TButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form4: TForm4;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm4.BitBtn1Click(Sender: TObject);
var
  farbe: TColor;
  ergebnis: String;
begin
  if ColorDialog1.Execute then
    farbe := ColorDialog1.Color;

  ergebnis :=   IntToHex(GetRValue(farbe),2)  // Rot-Wert (0..255)
                                              // in Hex umwandeln
                                              // mit min. 2 Zeichen
              + IntToHex(GetGValue(farbe),2)  // usw...
              + IntToHex(GetBValue(farbe),2);

  Edit2.Text := '#'+(ergebnis);
end;

procedure TForm4.BitBtn2Click(Sender: TObject);
var
  farbe: TColor;
  ergebnis: String;
begin
  if ColorDialog1.Execute then
    farbe := ColorDialog1.Color;

  ergebnis :=   IntToHex(GetRValue(farbe),2)  // Rot-Wert (0..255)
                                              // in Hex umwandeln
                                              // mit min. 2 Zeichen
              + IntToHex(GetGValue(farbe),2)  // usw...
              + IntToHex(GetBValue(farbe),2);

  Edit3.Text := '#'+(ergebnis);
end;

procedure TForm4.BitBtn3Click(Sender: TObject);
var
  farbe: TColor;
  ergebnis: String;
begin
  if ColorDialog1.Execute then
    farbe := ColorDialog1.Color;

  ergebnis :=   IntToHex(GetRValue(farbe),2)  // Rot-Wert (0..255)
                                              // in Hex umwandeln
                                              // mit min. 2 Zeichen
              + IntToHex(GetGValue(farbe),2)  // usw...
              + IntToHex(GetBValue(farbe),2);

  Edit4.Text := '#'+(ergebnis);
end;

procedure TForm4.BitBtn4Click(Sender: TObject);
var
  farbe: TColor;
  ergebnis: String;
begin
  if ColorDialog1.Execute then
    farbe := ColorDialog1.Color;

  ergebnis :=   IntToHex(GetRValue(farbe),2)  // Rot-Wert (0..255)
                                              // in Hex umwandeln
                                              // mit min. 2 Zeichen
              + IntToHex(GetGValue(farbe),2)  // usw...
              + IntToHex(GetBValue(farbe),2);

  Edit5.Text := '#'+(ergebnis);
end;

procedure TForm4.BitBtn5Click(Sender: TObject);
var
  farbe: TColor;
  ergebnis: String;
begin
  if ColorDialog1.Execute then
    farbe := ColorDialog1.Color;

  ergebnis :=   IntToHex(GetRValue(farbe),2)  // Rot-Wert (0..255)
                                              // in Hex umwandeln
                                              // mit min. 2 Zeichen
              + IntToHex(GetGValue(farbe),2)  // usw...
              + IntToHex(GetBValue(farbe),2);

  Edit9.Text := '#'+(ergebnis);
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
  Form4.Close
end;

procedure TForm4.Button1Click(Sender: TObject);
var e1, e2, e3, e4, e5, e6, e7, e8, e9 : string;
begin
  e1 := Edit2.Text;
  e2 := Edit9.Text;
  e3 := Edit3.Text;
  e4 := Edit4.Text;
  e5 := Edit5.Text;
  e6 := Edit1.Text;
  e7 := Edit6.Text;
  e8 := Edit7.Text;
  e9 := Edit8.Text;
  begin
    Form2.SynEdit1.SelText := 'Text';
  end;

end;

end.

Grolle