Type erklæringer

type
  TSelect = (skjul, vis);


procedure Select(Select : TSelect);
Begin
  Case Select of
    skjul :
      Begin
        Button1.visible := False
        Button2.visible := True;
      end;
    Vis :
      Begin
        Button1.visible := False
        Button2.visible := True;
      end;
  end;
end

Det virker ikke - nu har jeg kastet hele koden. Det var ellers et hurtigt svar.

unit Unit1;

interface

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

type

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;

    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    Tselect : (vis,Skjul);
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure Select(Select : TSelect);
Begin
  Case
    skjul :
      Begin
        Button2.visible := False
        Button1.visible := True;
      end;
    Vis :
      Begin
        Button1.visible := False
        Button2.visible := True;
      end;
  end;
end

procedure TForm1.Button2Click(Sender: TObject);
begin
  Skjul(skjul);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Select(vis);
end;

end.

type
  Tselect = (vis,Skjul);

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;

    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
  end;

Du er sgu go´
Tak for hjælpen