[DrGeorg]

Да я и так пытался:

Код:

var
  ms, ms2: TMemoryStream;
begin
  ms :=  TMemoryStream.Create;
  ms2 := TMemoryStream.Create;
  try
    ms.LoadFromFile('C:\qqq.lzo');
    ms2.Size := 1024*1024*10;
  
    ms2.Size := lzodecompress(Byte(ms.Memory^), Byte(ms2.Memory^));
    ms2.SaveToFile('C:\qqq.txt');
  finally
    ms2.Free;
    ms.Free;
  end;

Но компилит...
Правда ошибка: Access violation at address

http://forum.sources.ru/index.php?showtopic=38911