[NumLock]

Код:

procedure InvertVisible(Sender: TControl);
begin
  Sender.Visible:=not Sender.Visible;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  InvertVisible(Edit1);
end;

С наступающим Новым Годом!!!