[NumLock]

Код:

unit ***;

interface

uses
  Classes, StdCtrls;

type
  TLoadableEdit = class(TEdit)
  public
    procedure LoadFromFile(const FileName: String);
  end;

implementation

procedure TLoadableEdit.LoadFromFile(const FileName: String);
var
  AStrings: TStrings;
begin
  AStrings:=TStringList.Create;
  try
    AStrings.LoadFromFile(FileName);
    Text:=AStrings.Text;
  finally
    AStrings.Free;
  end;
end;

end.

использование:

Код:

var
  edit: TLoadableEdit;
begin
  edit:=TLoadableEdit.Create(Self); // не в счет :)
  edit.Parent:=Self; // не в счет :)
  edit.LoadFromFile('d:\Temp\Project1.dpr');
end;