diff --git a/components/fpspreadsheet/examples/wikitabledemo/wikitableread.lpi b/components/fpspreadsheet/examples/wikitabledemo/wikitableread.lpi
new file mode 100644
index 000000000..004b4f183
--- /dev/null
+++ b/components/fpspreadsheet/examples/wikitabledemo/wikitableread.lpi
@@ -0,0 +1,65 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/components/fpspreadsheet/examples/wikitabledemo/wikitableread.lpr b/components/fpspreadsheet/examples/wikitabledemo/wikitableread.lpr
new file mode 100644
index 000000000..0ea46aa2d
--- /dev/null
+++ b/components/fpspreadsheet/examples/wikitabledemo/wikitableread.lpr
@@ -0,0 +1,66 @@
+{
+wikitableread.dpr
+
+Demonstrates how to read a wikitable file using the fpspreadsheet library
+
+}
+program wikitableread;
+
+{$mode delphi}{$H+}
+
+uses
+ Classes, SysUtils, fpspreadsheet, wikitable,
+ laz_fpspreadsheet, fpsutils;
+
+var
+ MyWorkbook: TsWorkbook;
+ MyWorksheet: TsWorksheet;
+ InputFilename: string;
+ MyDir: string;
+ i: Integer;
+ CurCell: PCell;
+
+{$R *.res}
+
+begin
+ // Open the input file
+ MyDir := ExtractFilePath(ParamStr(0));
+ InputFileName := MyDir + 'test.wikitable_wikimedia';
+
+ if not FileExists(InputFileName) then begin
+ WriteLn('Input file ', InputFileName, ' does not exist. Please run wikitablewrite first.');
+ Halt;
+ end;
+ WriteLn('Opening input file ', InputFilename);
+
+ // Create the spreadsheet
+ MyWorkbook := TsWorkbook.Create;
+
+ MyWorkbook.ReadFromFile(InputFilename, sfWikiTable_WikiMedia);
+
+ MyWorksheet := MyWorkbook.GetFirstWorksheet;
+
+ // Write all cells with contents to the console
+ WriteLn('');
+ WriteLn('Contents of the first worksheet of the file:');
+ WriteLn('');
+
+ CurCell := MyWorkSheet.GetFirstCell();
+ for i := 0 to MyWorksheet.GetCellCount - 1 do
+ begin
+ Write('Row: ', CurCell^.Row,
+ ' Col: ', CurCell^.Col, ' Value: ',
+ UTF8ToAnsi(MyWorkSheet.ReadAsUTF8Text(CurCell^.Row,
+ CurCell^.Col))
+ );
+ if Length(CurCell^.RPNFormulaValue) > 0 then
+ WriteLn(' Formula: ', MyWorkSheet.ReadRPNFormulaAsString(CurCell))
+ else
+ WriteLn;
+ CurCell := MyWorkSheet.GetNextCell();
+ end;
+
+ // Finalization
+ MyWorkbook.Free;
+end.
+
diff --git a/components/fpspreadsheet/examples/wikitabledemo/wikitablewrite.lpi b/components/fpspreadsheet/examples/wikitabledemo/wikitablewrite.lpi
new file mode 100644
index 000000000..15316260c
--- /dev/null
+++ b/components/fpspreadsheet/examples/wikitabledemo/wikitablewrite.lpi
@@ -0,0 +1,63 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/components/fpspreadsheet/examples/wikitabledemo/wikitablewrite.lpr b/components/fpspreadsheet/examples/wikitabledemo/wikitablewrite.lpr
new file mode 100644
index 000000000..258f2fe63
--- /dev/null
+++ b/components/fpspreadsheet/examples/wikitabledemo/wikitablewrite.lpr
@@ -0,0 +1,53 @@
+{
+wikitablewrite.dpr
+
+Demonstrates how to write a wikitable file using the fpspreadsheet library
+}
+program wikitablewrite;
+
+{$mode delphi}{$H+}
+
+uses
+ Classes, SysUtils, fpspreadsheet, wikitable,
+ laz_fpspreadsheet;
+
+const
+ Str_First = 'First';
+ Str_Second = 'Second';
+ Str_Third = 'Third';
+ Str_Fourth = 'Fourth';
+ Str_Worksheet1 = 'Meu Relatório';
+ Str_Worksheet2 = 'My Worksheet 2';
+ Str_Total = 'Total:';
+var
+ MyWorkbook: TsWorkbook;
+ MyWorksheet: TsWorksheet;
+ MyRPNFormula: TsRPNFormula;
+ MyDir: string;
+ number: Double;
+ lCell: PCell;
+ lCol: TCol;
+ i: Integer;
+ r: Integer = 10;
+ s: String;
+begin
+ MyDir := ExtractFilePath(ParamStr(0));
+
+ // Create the spreadsheet
+ MyWorkbook := TsWorkbook.Create;
+
+ MyWorksheet := MyWorkbook.AddWorksheet(Str_Worksheet1);
+
+ // Write some cells
+ MyWorksheet.WriteUTF8Text(0, 0, 'This is a text:');
+ MyWorksheet.WriteUTF8Text(0, 1, 'Hello world!');
+ MyWorksheet.WriteUTF8Text(1, 0, 'This is a number:');
+ MyWorksheet.WriteNumber(1, 1, 3.141592);
+ MyWorksheet.WriteUTF8Text(2, 0, 'This is a date:');
+ Myworksheet.WriteDateTime(2, 1, date());
+
+ // Save the spreadsheet to a file
+ MyWorkbook.WriteToFile(MyDir + 'test.wikitable_wikimedia', sfWikitable_wikimedia);
+ MyWorkbook.Free;
+end.
+