unit LangMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ImgList, ExtCtrls, ComCtrls,XMLIntf, msxmldom, XMLDoc,
  XPMan, Menus;

type
  TMain = class(TForm)
    LangTree: TTreeView;
    Panel1: TPanel;
    Label1: TLabel;
    Panel2: TPanel;
    Images: TImageList;
    HotKey1: THotKey;
    XPManifest1: TXPManifest;
    PopupMenu1: TPopupMenu;
    NeuenZeichensatzderSprachehinzufgen1: TMenuItem;
    Zeichensatzlschen1: TMenuItem;
    Zeichensatzeditieren1: TMenuItem;
    N1: TMenuItem;
    Sprachebersetzen1: TMenuItem;
    Sprachelschen1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure LangTreeMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    end;
    type TAdressRecord = record
      name: string;
      plz: integer;
      ort: string;
    end;
  private
    { Private declarations }
  public
    { Public declarations }
  end;