diff --git a/README.md b/README.md
new file mode 100644
index 0000000..af6381f
--- /dev/null
+++ b/README.md
@@ -0,0 +1,142 @@
+> # 7-zip Delphi API
+
+This API use the 7-zip dll (7z.dll) to read and write all 7-zip supported archive formats.
+
+- Autor: Henri Gourvest <hgourvest@progdigy.com>  
+- Licence: MPL1.1  
+- Date: 15/04/2009  
+- Version: 1.1
+
+## Reading archive:
+
+### Extract to path:
+
+    with CreateInArchive(CLSID_CFormatZip) do
+    begin
+        OpenFile('c:\test.zip');
+        ExtractTo('c:\test');
+    end;
+
+### Get file list:
+
+    with CreateInArchive(CLSID_CFormat7z) do
+    begin
+    OpenFile('c:\test.7z');
+    for i := 0 to NumberOfItems - 1 do
+        if not ItemIsFolder[i] then
+        Writeln(ItemPath[i]);
+    end;
+
+### Extract to stream
+
+    with CreateInArchive(CLSID_CFormat7z) do
+    begin
+    OpenFile('c:\test.7z');
+    for i := 0 to NumberOfItems - 1 do
+        if not ItemIsFolder[i] then
+        ExtractItem(i, stream, false);
+    end;
+
+### Extract "n" Items
+
+    function GetStreamCallBack(sender: Pointer; index: Cardinal;
+    var outStream: ISequentialOutStream): HRESULT; stdcall;
+    begin
+    case index of ...
+        outStream := T7zStream.Create(aStream, soReference);
+    Result := S_OK;
+    end;
+
+    procedure TMainForm.ExtractClick(Sender: TObject);
+    var
+    i: integer;
+    items: array[0..2] of Cardinal;
+    begin
+    with CreateInArchive(CLSID_CFormat7z) do
+    begin
+        OpenFile('c:\test.7z');
+        // items must be sorted by index!
+        items[0] := 0;
+        items[1] := 1;
+        items[2] := 2;
+        ExtractItems(@items, Length(items), false, nil, GetStreamCallBack);
+    end;
+    end;
+
+### Open stream
+
+    with CreateInArchive(CLSID_CFormatZip) do
+    begin
+    OpenStream(T7zStream.Create(TFileStream.Create('c:\test.zip', fmOpenRead), soOwned));
+    OpenStream(aStream, soReference);
+    ...
+    end;
+
+### Progress bar
+
+    function ProgressCallback(sender: Pointer; total: boolean; value: int64): HRESULT; stdcall;
+    begin
+    if total then
+        Mainform.ProgressBar.Max := value else
+        Mainform.ProgressBar.Position := value;
+    Result := S_OK;
+    end;
+
+    procedure TMainForm.ExtractClick(Sender: TObject);
+    begin
+    with CreateInArchive(CLSID_CFormatZip) do
+    begin
+        OpenFile('c:\test.zip');
+        SetProgressCallback(nil, ProgressCallback);
+        ...
+    end;
+    end;
+
+### Password
+
+    function PasswordCallback(sender: Pointer; var password: WideString): HRESULT; stdcall;
+    begin
+    // call a dialog box ...
+    password := 'password';
+    Result := S_OK;
+    end;
+
+    procedure TMainForm.ExtractClick(Sender: TObject);
+    begin
+    with CreateInArchive(CLSID_CFormatZip) do
+    begin
+        // using callback
+        SetPasswordCallback(nil, PasswordCallback);
+        // or setting password directly
+        SetPassword('password');
+        OpenFile('c:\test.zip');
+        ...
+    end;
+    end;
+
+### Writing archive
+
+    procedure TMainForm.ExtractAllClick(Sender: TObject);
+    var
+    Arch: I7zOutArchive;
+    begin
+    Arch := CreateOutArchive(CLSID_CFormat7z);
+    // add a file
+    Arch.AddFile('c:\test.bin', 'folder\test.bin');
+    // add files using willcards and recursive search
+    Arch.AddFiles('c:\test', 'folder', '*.pas;*.dfm', true);
+    // add a stream
+    Arch.AddStream(aStream, soReference, faArchive, CurrentFileTime, CurrentFileTime, 'folder\test.bin', false, false);
+    // compression level
+    SetCompressionLevel(Arch, 5);
+    // compression method if <> LZMA
+    SevenZipSetCompressionMethod(Arch, m7BZip2);
+    // add a progress bar ...
+    Arch.SetProgressCallback(...);
+    // set a password if necessary
+    Arch.SetPassword('password');
+    // Save to file
+    Arch.SaveToFile('c:\test.zip');
+    // or a stream
+    Arch.SaveToStream(aStream);
+    end;