以下是一些不显老旧的Delphi风格的代码示例：

1. 使用现代的语法和命名约定：

procedure TForm1.Button1Click(Sender: TObject);
begin
  // 执行相应的操作
end;

2. 使用类属性和方法来替代全局变量和过程：

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    class var FCount: Integer;
  public
    class property Count: Integer read FCount;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Inc(FCount);
  // 执行相应的操作
end;

3. 使用匿名方法来处理事件：

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnClick := 
    procedure (Sender: TObject)
    begin
      // 执行相应的操作
    end;
end;

4. 使用泛型集合来代替传统的数组和列表：

var
  List: TObjectList;
begin
  List := TObjectList.Create;
  try
    List.Add(TMyObject.Create);
    List.Add(TMyObject.Create);
    // 执行相应的操作
  finally
    List.Free;
  end;
end;

5. 使用接口来实现更灵活的代码结构：

type
  IMyInterface = interface
    procedure DoSomething;
  end;

  TMyClass = class(TInterfacedObject, IMyInterface)
    procedure DoSomething;
  end;

procedure TMyClass.DoSomething;
begin
  // 执行相应的操作
end;

这些示例展示了一些现代化的Delphi编程技术，可以帮助您编写不显老旧的Delphi风格的代码。