Probleme mit parametern

[gangs-taas]

Hey,
ich habe in meinem programm ein Problem mit parametern...
zu erst :
ich bekomme die Fehlermeldung " Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen"

das hier ist mein code:

Delphi-Quellcode:

[...]
var
  Form1: TForm1;
  Zwischenspeicher : TStringlist;
  Zwischenspeicher2 : TStringlist;
  Textdatei,Textdatei2 : String;
  woche : String ;
  woche2 : String;
  Text : String ;
const ext = '.txt'   ;
implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  text := ('Montag' + #13#10 + 'Dienstag' + #13#10 + 'Mittwoch' + #13#10 + 'Donnerstag' + #13#10 + 'Freitag' + #13#10 + 'Samstag' + #13#10 + 'Sonntag');
  Textdatei2 := woche+'Termine ' +Edit8.Text + '\' +(IntToStr(KWoche +1))+ext;
  prüfen(1,Woche,Text,Textdatei);
end;

function TForm1.Prüfen(var HilfsVar: Integer; Pfad : STring; Text : string; DokumentenOrt : STring): Integer ;
var
Dokument : Tstringlist;
begin
  Dokument:= Tstringlist.Create;
  if (Text = 'Kein Dokument') then
  begin
    If not FileExists(DokumentenOrt) Then
      begin
        result := 1;
      end
    Else
    Result := 0;
  end
  Else
  result := 0;
  if not DirectoryExists(Pfad) then
    begin
      ForceDirectories(Pfad);
      Dokument.Add(Text);
      Dokument.SaveToFile(DokumentenOrt);
    end
  Else
    begin
      If not FileExists(DokumentenOrt) Then
      begin
        Dokument.Add(Text);
        Dokument.SaveToFile(DokumentenOrt);
      end;
    end;
  if (HilfsVar = 1) Then 
    begin
      if (Dokument.Count = 0) then   
       begin
          Dokument.Add(Text);
        Dokument.SaveToFile(DokumentenOrt);
      end;  
   Dokument.Add('Ende')     ;   
    end;
end;

ich übergebe doch als parameter genau das was gefragt ist odeR ?!
wo ist dann der fehler ?