[dr. F.I.N.]

Не изменяя программу все эдиты получат новый метод:

Код:

...
interface
...
type
  TEdit = class(StdCtrls.TEdit)
  public
    procedure LoadFromFile(FileName: String);
  end;
...
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
...
implementation

{ TEdit }
procedure TEdit.LoadFromFile(FileName: String);
begin
  //ToDo;
end;

{ TForm1 }
...

(с) Статья "Шаманский метод GEO" с королевства делфи.