EAccesss Violation

[Spike2k3]

Argh, bei mir kommt immer EAccesss Violation wenn ich mein Programm straten will.
Es liegt scheinbar an einer Unit, da wenn ich sie rausnehme, das Programm normal startet.
Hat irgendwer ne Ide, woran das liegen kann?
Hier ist mal der Code, schon mal im Vorraus danke für jede Hilfe.

Delphi-Quellcode:

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Formcreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
  Pass,Pass1 : String;
  ini: TIniFile;
implementation

uses Unit5, Unit6;

{$R *.dfm}

procedure TForm4.Formcreate(Sender: TObject);
begin
begin
  ini:=TIniFile.create('./File1.ini');
  try
    Pass:=ini.ReadString('Form','Pass','Horst');
    Pass1:=ini.ReadString('Benutzer','Pass','Horst');
  finally
    ini.free;
    end;
end;
end;


procedure TForm4.Button1Click(Sender: TObject);
begin
    begin
    if Edit1.Text = pass then form5.show else
    showmessage ('Sucker, falsches Pass');
    end;
    begin
    if Edit1.Text = pass1 then form6.show else
    showmessage ('Sucker, falsches Pass');
    end;
end;
end.