[leon2009]

DLL

Код:

function LoadFile:TMemoryStream;
var
MemoryFile: TMemoryStream;
begin
MemoryFile := TMemoryStream .Create;
try
MemoryFile.LoadFromFile('test.txt');
result:=MemoryFile;
finally
 MemoryFile.Free;
end;
end;

FORMA

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
Memory: TMemoryStream;
begin
Memory := TMemoryStream .Create;
try
Memory.LoadFromStream(LoadFile);
memo1.Lines.LoadFromStream(Memory);
finally
 Memory.Free;
end;
end;

пустое значение приходит