[leon2009]

Код:

procedure LoadFile(FileName: TFileName);
var
 MemStr: TMemoryStream;
 Title: String;
begin
 MemStr:= TMemoryStream.Create;
 try
  MemStr.LoadFromFile(FileName);
  MemStr.Seek(0, soFromBeginning);
  //Title := ReadStreamStr( MemStr );
 finally
   MemStr.Free;
  end;
end;
exports
  LoadFile index 1;
begin
end.

Код:

function LoadFile(FileName: TFileName); external 'project1.dll' index 1;
procedure TForm1.Button1Click(Sender: TObject);
begin
LoadFile('111111.txt');
 memo1.Lines.LoadFromFile(LoadFile);
 ProgressBar1.position:= LoadFile;
end;