Undeclared identifier

Kode 

unit telefonbog;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, DBCtrls, Mask, ExtCtrls, DB, DBClient, ComCtrls;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    StatusBar1: TStatusBar;
    ClientDataSet1: TClientDataSet;
    DBNavigator1: TDBNavigator;
    Navn: TDBEdit;
    Adresse: TDBMemo;
    Telefon: TDBEdit;
    Mobil: TDBEdit;
    Arbejde: TDBEdit;
    Email: TDBEdit;
    Filer1: TMenuItem;
    Poster1: TMenuItem;
    Navigation1: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    ClientDataSet1Navn: TStringField;
    ClientDataSet1Adresse: TMemoField;
    ClientDataSet1Telefon: TStringField;
    ClientDataSet1Mobil: TStringField;
    ClientDataSet1Arbejde: TStringField;
    ClientDataSet1Email: TStringField;
    Nyadressebog1: TMenuItem;
    benadressebog1: TMenuItem;
    Gemadressebog1: TMenuItem;
    Afslutprogram1: TMenuItem;
    Afslutprogram2: TMenuItem;
    Nypost1: TMenuItem;
    Retpost1: TMenuItem;
    Sletpost1: TMenuItem;
    Opdater1: TMenuItem;
    Fortryd1: TMenuItem;
    Frste1: TMenuItem;
    Frem1: TMenuItem;
    ilbage1: TMenuItem;
    Sidste1: TMenuItem;
    Find1: TMenuItem;
    cdsAdresser: TDataSource;
    procedure benadressebog1Click(Sender: TObject);
    procedure Gemadressebog1Click(Sender: TObject);
    procedure Nypost1Click(Sender: TObject);
    procedure Retpost1Click(Sender: TObject);
    procedure Sletpost1Click(Sender: TObject);
    procedure Opdater1Click(Sender: TObject);
    procedure Fortryd1Click(Sender: TObject);
    procedure Frste1Click(Sender: TObject);
    procedure Frem1Click(Sender: TObject);
    procedure ilbage1Click(Sender: TObject);
    procedure Sidste1Click(Sender: TObject);
    procedure Find1Click(Sender: TObject);
    procedure ClientDataSet1AfterOpen(DataSet: TDataSet);
    procedure Nyadressebog1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.benadressebog1Click(Sender: TObject);
begin
  cdsAdresser.Close;

  if diaOpen.Execute then

  begin

    cdsAdresser.FileName := diaOpen.FileName;

    cdsAdresser.Open;

  end;

end;

procedure TForm1.Gemadressebog1Click(Sender: TObject);
begin
  if diaSave.Execute then

  begin

    cdsAdresser.FileName := diaSave.FileName;

    cdsAdresser.SaveToFile;

  end;

end;

procedure TForm1.Nypost1Click(Sender: TObject);
begin
  if cdsAdresser.State = dsBrowse then

    cdsAdresser.Insert;


end;

procedure TForm1.Retpost1Click(Sender: TObject);
begin
  if cdsAdresser.State = dsBrowse then

    if (not cdsAdresser.Bof) and (not cdsAdresser.Eof) then

      cdsAdresser.Edit;


end;

procedure TForm1.Sletpost1Click(Sender: TObject);
begin
  if cdsAdresser.State = dsBrowse then

    if (not cdsAdresser.Bof) and (not cdsAdresser.Eof) then

      cdsAdresser.Delete;

end;

procedure TForm1.Opdater1Click(Sender: TObject);
begin
  if cdsAdresser.State in [dsEdit, dsInsert] then

    cdsAdresser.Post;

end;

procedure TForm1.Fortryd1Click(Sender: TObject);
begin
  if cdsAdresser.State in [dsEdit, dsInsert] then

    cdsAdresser.Cancel;


end;

procedure TForm1.Frste1Click(Sender: TObject);
begin
cdsAdresser.First; // Find første post
end;

procedure TForm1.Frem1Click(Sender: TObject);
begin
  if not cdsAdresser.Eof then // Hvis IKKE ved sidste post

    cdsAdresser.Next;         // så gå til næste

end;

procedure TForm1.ilbage1Click(Sender: TObject);
begin
  if not cdsAdresser.Bof then // Hvis IKKE ved første post

    cdsAdresser.Prior;        // så gå til forrige

end;

procedure TForm1.Sidste1Click(Sender: TObject);

begin
  cdsAdresser.Last;
end;

procedure TForm1.Find1Click(Sender: TObject);
var

  navn : String;

begin
  if InputQuery('Navn', 'Indtast navn', navn) then

    cdsAdresser.Locate('Navn', navn, [loCaseInsensitive, loPartialKey]);

end;

procedure TForm1.ClientDataSet1AfterOpen(DataSet: TDataSet);
begin
  stbStatus.SimpleText := IntToStr(cdsAdresser.RecordCount) + ' poster';
end;

procedure TForm1.Nyadressebog1Click(Sender: TObject);
begin
  cdsAdresser.Close;

  cdsAdresser.CreateDataSet;

  if diaSave.Execute then
  begin

    cdsAdresser.FileName := diaSave.FileName;

    cdsAdresser.Open;

  end;


end;

end.