Compiler Fehlermeldung

[haderlump]

Compilerfehler:
Projekt kompilieren, Ziel: bahn.exe: Exit code 1, Fehler: 1, Hinweise: 1
nachrichtenfeld.pas(26,1) Error: Duplicate identifier "nachrichtenfeld"
nachrichtenfeld.pas(26,1) Hint: Identifier already defined in nachrichtenfeld.pas at line 7

Code: Alles auswählen

unit nachrichtenfeld;
 
{$mode objfpc}{$H+}
 
interface
 
uses  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TNachrichtenfeld }
 
  TNachrichtenfeld = class(TForm)
    ja: TButton;
    Nein: TButton;
    Ignorieren: TButton;
    Nachrichtentext: TEdit;
  private
    { private declarations }
  public
    { public declarations }
    function nachricht(t,j,n,i:string):string;
 end;
 
var
Nachrichtenfeld: TNachrichtenfeld;
 
implementation
 
{$R *.lfm}
function nachricht(t,j,n,i:string):string;
 begin
    nachricht := t+j+n+i;
    //nachrichtenfeld.visible := true;
 
 end;
 
end.                  

Der Fehler tritt auf in der Zeile nach var.
Ich kann keine Doppelung des identifires nachrichtenfeld finden. auch die 3. Zeile der Fehlermeldung gibt mir Rätsel auf. In Zeile 7 gibt es ja auch keinen entsprechenden Eintrag.

[af0815]

Deine unit hat den gleichen Namen.