Ну тогда уж лучше не новый класс создавать, а старый доработать:
Код:
....
THelperEdit = class helper for TEdit
procedure LoadFromFile(FileName: String);
end;
....
procedure THelperEdit.LoadFromFile(FileName: String);
begin
with TStringList.Create
do try
LoadFromFile(FileName);
Self.Text := Text;
finally
Free;
end;
end;
И все, теперь TEdit будет считать что у него есть родной метод загрузки из файла.
