diff --git a/applications/wikihelp/src/Utils.pas b/applications/wikihelp/src/Utils.pas
new file mode 100644
index 000000000..dfc76101f
--- /dev/null
+++ b/applications/wikihelp/src/Utils.pas
@@ -0,0 +1,724 @@
+UNIT Utils;
+ 
+INTERFACE
+
+{$H+}
+
+uses Classes,SysUtils,Graphics,Forms,Process,Dialogs,Clipbrd,FileUtil,Translations
+{$IFDEF MSWINDOWS}
+,Registry,Windows
+{$ENDIF}
+;
+
+{$IFNDEF FPC}
+CONST
+  DirectorySeparator = '\';
+{$ENDIF}
+
+type
+ TRoundToRange = -37..37;
+ TProcessinfoTyp = (piOpen,piPrint);
+ {$ifdef WINDOWS}
+ PFNSHGetFolderPath = Function(Ahwnd: HWND; Csidl: Integer; Token: THandle; Flags: DWord; Path: PChar): HRESULT; stdcall;
+ {$endif}
+
+function ClearDir (Path: string): boolean;
+function RPos(const Substr: string; const S: string): Integer;
+FUNCTION IsNumeric(s: STRING): boolean;
+FUNCTION StrTimeToValue(val : string) : LongInt;
+procedure DrawText(Canvas : TCanvas;Rect : TRect;Str : string;CenterV : Boolean = False;CenterH : Boolean = False);
+function InstallExt(Extension, ExtDescription, FileDescription,OpenWith, ParamString: string; IconIndex: Integer = 0): Boolean;
+function SystemUserName : string;
+function HTTPEncode(const str : String) : string;
+function StripHTML(S: string): string;
+function ValidateFileName(old : string) : string;
+function ValidateFileDir(old : string) : string;
+function ValidateDate(D : string) : string;
+function GetTempPath : string;
+function GetConfigDir(app : string) : string;
+function GetGlobalConfigDir(app : string) : string;
+function SizeToText(size : Longint) : string;
+function GetMainIconHandle : Cardinal;
+function CanWriteToProgramDir : Boolean;
+function OpenBrowser(Site : string) : Boolean;
+function HexToBin(h: STRING): dword;
+procedure LoadLanguage(lang : string);
+function RoundTo(const AValue : extended ; const ADigit : TRoundToRange) : extended ;
+function TimeTotext(Seconds : Integer) : string;
+procedure ExecProcess(CommandLine : string;CurDir : string = '';Waitfor : Boolean = True);
+procedure ExecVisualProcess(CommandLine : string;CurDir : string = '';Waitfor : Boolean = True);
+function ExecProcessEx(CommandLine : string;CurDir : string = '') : string;
+function GetProcessforExtension(InfoTyp : TProcessinfoTyp;Extension : string) : string;
+function GetMimeTypeforExtension(Extension : string) : string;
+function GetSystemLang : string;
+
+IMPLEMENTATION
+
+function ExecProcessEx(CommandLine : string;CurDir : string = '') : string;
+const
+  READ_BYTES = 2048;
+var
+  process : TProcess;
+  ms: tmemorystream;
+  bytesread: integer;
+  n: longint;
+  tmps: tstringlist;
+  err : string;
+begin
+  BytesRead := 0;
+  Process := TProcess.Create(nil);
+  Process.Options := [poUsePipes];
+  Process.ShowWindow := swoHide;
+  Process.CommandLine := CommandLine;
+  if CurDir <> '' then
+    Process.CurrentDirectory := CurDir;
+  BytesRead := 0;
+  MS := TmemoryStream.create;
+  try
+  Process.Execute;
+  while Process.Running do
+    begin
+      MS.SetSize(BytesRead+READ_BYTES);
+      n := Process.OutPut.Read((MS.Memory+BytesRead)^,READ_BYTES);
+      if n > 0 then
+        inc(BytesRead,n)
+      else
+        sleep(50);
+    end;
+  except
+    on e : exception do
+      err := err+#13+e.Message;
+  end;
+  MS.SetSize(BytesRead+READ_BYTES);
+  n := Process.OutPut.Read((MS.Memory+BytesRead)^,READ_BYTES);
+  if n > 0 then
+    inc(Bytesread,n);
+  MS.SetSize(BytesRead);
+  Process.Free;
+  tmps := TStringList.Create;
+  tmps.LoadFromStream(MS);
+  Result := tmps.Text;
+  tmps.Free;
+  MS.Free;
+  if err <> '' then
+    Result := 'errors:'+err+#13+Result;
+end;
+
+procedure ExecProcess(CommandLine : string;CurDir : string = '';Waitfor : Boolean = True);
+var
+{$IFDEF WINDOWS}
+  SUInfo: TStartupInfo;
+  ProcInfo: TProcessInformation;
+  CmdLine: string;
+  Res: Boolean;
+{$ELSE}
+  process : TProcess;
+{$ENDIF}
+begin
+{$IFDEF WINDOWS}
+  FillChar(SUInfo, SizeOf(SUInfo), #0);
+  with SUInfo do begin
+    cb := SizeOf(SUInfo);
+    dwFlags := STARTF_USESHOWWINDOW;
+    wShowWindow := SW_HIDE
+  end;
+  Res := CreateProcess(NIL, PChar(CommandLine), NIL, NIL, FALSE,
+                          CREATE_NEW_CONSOLE or
+                          NORMAL_PRIORITY_CLASS, NIL,
+                          PChar(CurDir),
+                          SUInfo, ProcInfo);
+  { Wait for it to finish. }
+  if Res and Waitfor then
+    WaitForSingleObject(ProcInfo.hProcess, INFINITE);
+{$ELSE}
+  Process := TProcess.Create(nil);
+  if CurDir <> '' then
+    Process.CurrentDirectory := CurDir;
+  Process.CommandLine := CommandLine;
+  if Waitfor then
+    Process.Options := [poNewConsole{poNoConsole},poWaitOnExit]
+  else
+    Process.Options := [poNewConsole{poNoConsole}];
+//  Process.ShowWindow := swoHide;
+  Process.Execute;
+  if Waitfor then Process.Free;
+{$ENDIF}
+end;
+
+procedure ExecVisualProcess(CommandLine : string;CurDir : string = '';Waitfor : Boolean = True);
+var
+  process : TProcess;
+begin
+  Process := TProcess.Create(nil);
+  if CurDir <> '' then
+    Process.CurrentDirectory := CurDir;
+  Process.CommandLine := CommandLine;
+  if Waitfor then
+    Process.Options := [poWaitOnExit]
+  else
+    Process.Options := [];
+  Process.Execute;
+  if Waitfor then Process.Free;
+end;
+
+function TimeTotext(Seconds : Integer) : string;
+var
+  tmp : Integer;
+begin
+  if Seconds > 60*60 then
+    begin
+      Result := IntToStr(Trunc(Seconds/(60*60))) +' h';
+      tmp := Seconds mod (60*60);
+      Result := Result +' '+IntToStr(Trunc(tmp/(60))) +' m';
+      tmp := Seconds mod 60;
+      Result := Result +' '+IntToStr(tmp) +' s';
+    end
+  else if Seconds > 60 then
+    begin
+      Result := IntToStr(Trunc(Seconds/(60))) +' m';
+      tmp := Seconds mod 60;
+      Result := Result +' '+IntToStr(tmp) +' s';
+    end
+  else
+    begin
+      Result := IntToStr(Seconds)+' s';
+    end
+end;
+
+function RoundTo(const AValue : extended ; const ADigit : TRoundToRange) : extended ;
+var X : extended ; i : integer ;
+begin
+  X := 1.0 ;
+  for i := 1 to Abs(ADigit) do X := X * 10 ;
+  if ADigit<0 then
+    Result := Round(AValue * X) / X
+  else
+    Result := Round(AValue / X) * X;
+end;
+  
+function HexToBin(h: STRING): dword;
+  FUNCTION HexDigitToInt(c: Char): Integer;
+  BEGIN
+    IF (c >= '0') AND (c <= '9') THEN Result := Ord(c) - Ord('0')
+    ELSE IF (c >= 'A') AND (c <= 'F') THEN Result := Ord(c) - Ord('A') + 10
+    ELSE IF (c >= 'a') AND (c <= 'f') THEN Result := Ord(c) - Ord('a') + 10
+    ELSE Result := -1;
+  END;
+VAR
+  buf: ARRAY[0..16] OF Byte;
+  digit1: Integer;
+  bytes: Integer;
+  index: Integer;
+BEGIN
+  bytes := 0;
+  index := 0;
+  result := 0;
+  IF frac(length(h) / 2) = 0.5 THEN
+    h := '0' + h;
+  WHILE (bytes < 16) DO
+    BEGIN
+      if length(h) > index+1 then
+        digit1 := HexDigitToInt(h[index + 1])
+      else
+        digit1 := -1;
+      IF digit1 < 0 THEN
+        break;
+      buf[bytes] := (digit1 SHL 4) OR HexDigitToInt(h[index + 2]);
+      Inc(index, 2);
+      Inc(bytes);
+    END;
+  dec(bytes);
+  FOR index := bytes DOWNTO 0 DO
+    Result := Result + (buf[index] shl ((bytes-index)*8));
+END;
+
+procedure LoadLanguage(lang: string);
+begin
+  if FileExists(ProgramDirectory+'languages'+Directoryseparator+Lang+'.po') then
+    TranslateUnitResourceStrings('uintfstrconsts',ProgramDirectory+'languages'+Directoryseparator+Lang+'.po');
+//    TranslateResourcestrings(ProgramDirectory+'languages'+Directoryseparator+Lang+'.mo');
+end;
+
+function GetProcessforExtension(InfoTyp : TProcessinfoTyp;Extension : string) : string;
+{$ifdef MSWINDOWS}
+var
+  reg : TRegistry;
+  ot : string;
+  FileClass: string;
+  chrResult: array[0..1023] of Char;
+  wrdReturn: DWORD;
+{$endif}
+begin
+{$ifdef WINDOWS}
+  case InfoTyp of
+  piOpen:ot := 'open';
+  piPrint:ot := 'print';
+  end;
+  Result := '';
+  Reg := TRegistry.Create(KEY_READ);
+  Reg.RootKey := HKEY_CLASSES_ROOT;
+  FileClass := '';
+  if Reg.OpenKeyReadOnly(ExtractFileExt('.'+Extension)) then
+  begin
+    FileClass := Reg.ReadString('');
+    Reg.CloseKey;
+  end;
+  if FileClass <> '' then begin
+    if Reg.OpenKeyReadOnly(FileClass + '\Shell\'+ot+'\Command') then
+    begin
+      wrdReturn := ExpandEnvironmentStrings(PChar(StringReplace(Reg.ReadString(''),'%1','%s',[rfReplaceAll])), chrResult, 1024);
+      if wrdReturn = 0 then
+        Result := StringReplace(Reg.ReadString(''),'%1','%s',[rfReplaceAll])
+      else
+        Result := Trim(chrResult);
+      Reg.CloseKey;
+    end;
+  end;
+  Reg.Free;
+{$ELSE}
+{$endif}
+end;
+
+function GetMimeTypeforExtension(Extension : string) : string;
+{$ifdef MSWINDOWS}
+var
+  reg : TRegistry;
+{$endif}
+begin
+{$ifdef WINDOWS}
+  Result := '';
+  Reg := TRegistry.Create(KEY_READ);
+  Reg.RootKey := HKEY_CLASSES_ROOT;
+  if Reg.OpenKeyReadOnly(ExtractFileExt('.'+Extension)) then
+  begin
+    Result := Reg.ReadString('Content Type');
+    Reg.CloseKey;
+  end;
+  Reg.Free;
+{$ELSE}
+{$endif}
+end;
+
+function GetSystemLang: string;
+{$IFDEF WINDOWS}
+var
+  Ident: Integer;
+  MyLang: PChar;
+const
+  Size: Integer = 250;
+{$ENDIF}
+begin
+{$IFDEF WINDOWS}
+  GetMem(MyLang, Size);
+  Ident:=GetSystemDefaultLangID;
+  VerLanguageName(Ident, MyLang, Size);
+  Result:=StrPas(MyLang);
+  FreeMem(MyLang);
+{$ELSE}
+  Result := GetEnvironmentVariable('LANG');
+{$ENDIF}
+end;
+
+function OpenBrowser(Site : string) : Boolean;
+var
+  cmd : string;
+  proc : TProcess;
+begin
+  cmd := GetProcessforExtension(piOpen,'html');
+  {$ifndef WINDOWS}
+  cmd := ExecProcessEx('gconftool-2 --get /desktop/gnome/url-handlers/http/command');
+  if (cmd = '') or (pos('errors',cmd) > 0) then
+    cmd := GetEnvironmentVariable('BROWSER');
+  if (cmd = '') then
+    cmd := 'kfmclient openURL %s';
+  {$ENDIF}
+  if cmd = '' then exit;
+  proc := TProcess.Create(nil);
+  proc.CommandLine := StringReplace(cmd,'%s',Site,[rfReplaceAll]);
+  proc.Options := [poNewConsole];
+  proc.Execute;
+  while Proc.Running do
+    Application.ProcessMessages;
+  proc.free;
+end;
+
+
+function CanWriteToProgramDir : Boolean;
+var
+  f : TextFile;
+begin
+  AssignFile(f,ExtractFilePath(Application.Exename)+'writetest.tmp');
+  try
+    Rewrite(f);
+  except
+    Result := False;
+    exit;
+  end;
+  CloseFile(f);
+  SysUtils.DeleteFile(ExtractFilePath(Application.Exename)+'writetest.tmp');
+  Result := True;
+end;
+
+function SizeToText(size : Longint) : string;
+begin
+  if size > 1024*1024*1024 then
+    Result := FormatFloat('0.00',size/(1024*1024*1024))+' Gb'
+  else if size > 1024*1024 then
+    Result := FormatFloat('0.00',size/(1024*1024))+' Mb'
+  else if size > 1024 then
+    Result := FormatFloat('0.00',size/(1024))+' Kb'
+  else
+    Result := IntToStr(size)+' byte'
+end;
+
+function GetMainIconHandle : Cardinal;
+begin
+{$ifdef MSWINDOWS}
+  Result := LoadIcon(hInstance, 'MAINICON');
+{$else}
+  Result := 0;
+{$endif}
+end;
+
+function GetConfigDir(app : string) : string;
+begin
+{$IFDEF MSWINDOWS}
+  Result := copy(GetAppConfigDir(False),0,length(GetAppConfigDir(False))-length(ApplicationName))+app;
+{$ELSE}
+  Result:=GetEnvironmentVariable('HOME');
+  If (Result<>'') then
+    Result:=IncludeTrailingPathDelimiter(Result)+'.'+app;
+{$ENDIF}
+  Result := IncludeTrailingPathDelimiter(result);
+end;
+
+function GetGlobalConfigDir(app : string) : string;
+{$IFDEF MSWINDOWS}
+const
+  CSIDL_COMMON_APPDATA  = $0023; // All Users\Application Data
+  CSIDL_FLAG_CREATE     = $8000; { (force creation of requested folder if it doesn't exist yet)     }
+var
+  Path: array [0..1024] of char;
+  P : Pointer;
+  SHGetFolderPath : PFNSHGetFolderPath = Nil;
+  CFGDLLHandle : THandle = 0;
+{$ENDIF}
+begin
+{$IFDEF MSWINDOWS}
+  CFGDLLHandle:=LoadLibrary('shell32.dll');
+  if (CFGDLLHandle<>0) then
+    begin
+    P:=GetProcAddress(CFGDLLHandle,'SHGetFolderPathA');
+    If (P=Nil) then
+      begin
+      FreeLibrary(CFGDLLHandle);
+      CFGDllHandle:=0;
+      end
+    else
+      SHGetFolderPath:=PFNSHGetFolderPath(P);
+    end;
+  If (P=Nil) then
+    begin
+    CFGDLLHandle:=LoadLibrary('shfolder.dll');
+    if (CFGDLLHandle<>0) then
+      begin
+      P:=GetProcAddress(CFGDLLHandle,'SHGetFolderPathA');
+      If (P=Nil) then
+        begin
+        FreeLibrary(CFGDLLHandle);
+        CFGDllHandle:=0;
+        end
+      else
+        ShGetFolderPath:=PFNSHGetFolderPath(P);
+      end;
+    end;
+  Result := ExtractFilePath(Application.Exename);
+  If (@ShGetFolderPath<>Nil) then
+    if SHGetFolderPath(0,CSIDL_COMMON_APPDATA or CSIDL_FLAG_CREATE,0,0,@PATH[0])=S_OK then
+      Result:=IncludeTrailingPathDelimiter(StrPas(@Path[0]))+app;
+{$ELSE}
+{$ENDIF}
+  Result := IncludeTrailingPathDelimiter(result);
+end;
+
+function GetTempPath : string;
+{$IFDEF MSWINDOWS}
+var
+  TD                : PChar;
+{$ENDIF}
+begin
+{$IFDEF MSWINDOWS}
+  GetMem(TD, 256);
+  try
+    FillChar(TD^, 256, 0);
+    Windows.GetTempPath(256, TD);
+    Result := TD;
+  finally
+    FreeMem(TD, 256);
+  end;
+{$ELSE}
+  Result := '/temp';
+{$ENDIF}
+end;
+
+function ValidateFileDir(old: string): string;
+begin
+  Result := old;
+  if DirectorySeparator <> '/' then
+    Result := StringReplace(Result,'/','',[rfReplaceAll]);
+  Result := StringReplace(Result,'@','',[rfReplaceAll]);
+  Result := StringReplace(Result,';','',[rfReplaceAll]);
+end;
+
+function ValidateDate(D : string) : string;
+begin
+  if pos('.',D) > 0 then
+    Result := StringReplace(D,'-','.',[rfReplaceAll]);
+  if length(D) = 4 then
+    Result := '01.01.'+D;
+end;
+
+function ValidateFileName(old : string) : string;
+begin
+  Result := StringReplace(old,'\','',[rfReplaceAll]);
+  Result := StringReplace(Result,'/','',[rfReplaceAll]);
+  Result := StringReplace(Result,'@','',[rfReplaceAll]);
+  Result := StringReplace(Result,';','',[rfReplaceAll]);
+end;
+
+function StripHTML(S: string): string;
+var
+  TagBegin, TagEnd, TagLength: integer;
+begin
+  TagBegin := Pos( '<', S);      // search position of first <
+
+  while (TagBegin > 0) do begin  // while there is a < in S
+    TagEnd := Pos('>', S);              // find the matching >
+    TagLength := TagEnd - TagBegin + 1;
+    Delete(S, TagBegin, TagLength);     // delete the tag
+    TagBegin:= Pos( '<', S);            // search for next <
+  end;
+
+  S := Stringreplace(S,'&nbsp;',' ',[rfReplaceAll]);
+  S := Stringreplace(S,'&amp;','&',[rfReplaceAll]);
+  S := Stringreplace(S,'&lt;','<',[rfReplaceAll]);
+  S := Stringreplace(S,'&gt;','>',[rfReplaceAll]);
+  S := Stringreplace(S,'&quot;','"',[rfReplaceAll]);
+  Result := S;                   // give the result
+end;
+
+function HTTPEncode(const str : String) : string;
+const
+  noconvert = ['A'..'Z','a'..'z','*','@','.','_','-','0'..'9','$','!','''','(',')'];
+  hex2str : array[0..15] of char = '0123456789ABCDEF';
+var
+  i : integer;
+  c : char;
+begin
+  Result := '';
+  for i:=1 to length(str) do
+    begin
+      c:=str[i];
+      if c in noconvert then
+        Result:=Result+c
+      else
+        Result:=Result+'%'+hex2str[ord(c) shr 4]+hex2str[ord(c) and $f];
+    end;
+end;
+
+{$IFDEF MSWINDOWS}
+function SystemUserName : string;
+var userNameBuffer : string[255];
+    sizeBuffer : DWord;
+begin
+  SizeBuffer := 256;
+  getUserName(@userNameBuffer+1, sizeBuffer);
+  result := userNameBuffer;
+end;
+{$ELSIF LINUX}
+{$IFNDEF WINDOWS}
+function SystemUserName : string;
+begin
+  Result := GetEnvironmentVariable('USERNAME');
+  if Result = '' then
+    Result := GetEnvironmentVariable('USER');
+end;
+{$ENDIF}
+{$ELSE}
+function SystemUserName : string;
+begin
+end;
+{$ENDIF}
+
+function InstallExt(Extension, ExtDescription, FileDescription,OpenWith, ParamString: string; IconIndex: Integer = 0): Boolean;
+{$IFDEF MSWINDOWS}
+var
+  Reg: TRegistry;
+{$ENDIF}
+begin
+  Result := False;
+  if Extension <> '' then
+    begin
+{$IFDEF MSWINDOWS}
+      if Extension[1] <> '.' then
+        Extension := '.' + Extension;
+      Reg := TRegistry.Create;
+      try
+        Reg.RootKey := HKEY_CLASSES_ROOT;
+        if Reg.OpenKey(Extension, True) then
+          begin
+            Reg.WriteString('', ExtDescription);
+            if Reg.OpenKey('\' + ExtDescription, True) then
+              begin
+                Reg.WriteString('', FileDescription);
+                if Reg.OpenKey('DefaultIcon', True) then
+                  begin
+                    Reg.WriteString('', Format('%s,%d', [OpenWith, IconIndex]));
+                    if Reg.OpenKey('\' + ExtDescription + '\Shell\Open\Command', True) then
+                      begin
+                        Reg.WriteString('', Format('"%s" "%s"', [OpenWith, ParamString]));
+                        Result:=True;
+                      end;
+                  end;
+              end;
+          end;
+      finally
+        Reg.Free;
+      end;
+{$ENDIF}
+    end;
+end;
+
+procedure DrawText(Canvas : TCanvas;Rect : TRect;Str : string;CenterV : Boolean = False;CenterH : Boolean = False);
+var
+  TextPosY,
+  TextPosX: Integer;
+begin
+  TextPosX := Rect.Left;
+  if CenterH then
+    TextPosX := TextPosX+((Rect.Right-Rect.Left-Canvas.TextWidth(Str)) div 2);
+  TextPosY := Rect.Top;
+  if CenterV then
+  TextPosY := TextPosY+((Rect.Bottom-Rect.Top)-Canvas.TextHeight(Str)) div 2;
+  Canvas.TextOut(TextPosX,TextPosY,Str);
+end;
+
+FUNCTION StrTimeToValue(val : string) : LongInt;
+var
+  i : Integer;
+  un : string;
+begin
+  //TODO:replace ',' with system delemiter
+  un := '';
+  FOR i := 1 TO length(val) DO
+    IF NOT ((Char(Val[i]) IN ['0'..'9']) or (Char(Val[i]) = DecimalSeparator)) THEN
+      begin
+        un := trim(copy(Val,i,length(Val)));
+        break;
+      end;
+  if copy(Val,0,i-1) = '' then
+    begin
+      Result := -1;
+      exit;
+    end;
+  if (UpperCase(un) = 'MS') or (un = '') then
+    Result := Round(StrToFloat(copy(Val,0,i-1)))
+  else if UpperCase(un) = 'S' then
+    Result := Round(1000*StrToFloat(copy(Val,0,i-1)))
+  else if UpperCase(un) = 'M' then
+    Result := Round(60*1000*StrToFloat(copy(Val,0,i-1)))
+  else
+    Result := -1;
+end;
+
+FUNCTION IsNumeric(s: STRING): boolean;
+VAR
+  i      : integer;
+  hassign: boolean;
+BEGIN
+  // TODO:Replace ',' with Systemdelemiter
+  // geändert von schnullerbacke
+  // DecimalSeparator auf . gesetzt falls ,
+  // doppeltes Vorkommen von sign verhindert
+  if DecimalSeparator = ',' then begin
+    // replace DecimalSeparator wenn nötig
+    i:= Pos(',', s);
+    s[i]:= '.';
+  end;
+  Result:= (Pos('.', s) > 0) and (length(s) > 0);
+  if Result then begin
+    // lösche DecimalSeparator
+    Delete(s, i, 1);
+    hassign:= (Pos('-', s) > 0) or (Pos('+',s) > 0);
+    if hassign then begin
+      // lösche Vorkommen eines signs
+      i:= Pos('-', s);
+      if i = 0 then i:= Pos('+', s);
+      if i > 0 then Delete(s, i, 1);
+    end;
+    i:= 1;
+    while (i <= length(s)) and Result do begin
+      // nur noch Test auf Digit nötig
+      Result:= (Char(s[i]) IN ['0'..'9']);
+      IF Result then inc(i);
+    END; // of while (i <= length(s)) and Result do begin
+  end; // of if Result then begin
+END;
+
+function RPos(const Substr: string; const S: string): Integer;
+var
+  SL, i : Integer;
+begin
+  SL := Length(Substr);
+  i := Length(S);
+  if (Substr = '') or (S = '') or (SL > i) then begin
+    Result := 0;
+    Exit;
+  end;
+
+  while i >= SL do begin
+    if S[i] = Substr[SL] then begin
+      if Copy(S, i - SL + 1, SL) = Substr then begin
+        Result := i - SL + 1;
+        Exit;
+      end;
+    end;
+    Dec(i);
+  end;
+  Result := i;
+end;
+
+ { Make sure given file path is ended with backslash ("\") }
+ { Clears Directory: Removes all files and directories contained }
+function ClearDir (Path: string): boolean;
+var
+  Res: integer;
+  SRec: SysUtils.TSearchRec;
+begin
+  Result := false;
+  try
+    if copy(path,length(path)-1,1) <> DirectorySeparator then
+      Path := Path+DirectorySeparator;
+    Res := FindFirst (Path + '*.*', faAnyFile, SRec);
+    while Res = 0 do
+      begin
+        if (SRec.Attr = faDirectory) and (SRec.Name[1] <> '.') then
+          begin
+            ClearDir (Path + SRec.Name); { Clear before removing }
+            if not RemoveDir (pchar(Path + SRec.Name)) then
+              exit;
+          end
+        else
+          SysUtils.DeleteFile(Path + SRec.Name);
+      Res := FindNext(SRec);
+    end;
+    SysUtils.FindClose(SRec);
+    Result := true;
+  except
+  end;
+end;
+
+
+END.
+
+ 
diff --git a/applications/wikihelp/src/uappconsts.pas b/applications/wikihelp/src/uappconsts.pas
new file mode 100644
index 000000000..0aa550cbf
--- /dev/null
+++ b/applications/wikihelp/src/uappconsts.pas
@@ -0,0 +1,22 @@
+unit uAppconsts; 
+
+{$mode objfpc}{$H+}
+
+interface
+
+const
+  vAppName         = 'wikihelp';
+  vRevision        = 2;
+  vVersion         = 0.5;
+  vProgramname     = 'WikiHelp';
+  vTimeOutYear     = 0;
+  vTimeOutMonth    = 0;
+  vTimeOutDay      = 0;
+  vCopyright       = '2007 Christian Ulrich';
+  vTracker_url     = 'mantis.ullihome.de';
+  vProject_id      = 5;
+
+implementation
+
+end.
+
diff --git a/applications/wikihelp/src/umain.lfm b/applications/wikihelp/src/umain.lfm
new file mode 100644
index 000000000..da28322f2
--- /dev/null
+++ b/applications/wikihelp/src/umain.lfm
@@ -0,0 +1,160 @@
+object fWikiHelp: TfWikiHelp
+  Left = 324
+  Height = 322
+  Top = 221
+  Width = 428
+  HorzScrollBar.Page = 427
+  VertScrollBar.Page = 321
+  ActiveControl = eWikiPage
+  Caption = 'WikiHelp'
+  OnClose = FormClose
+  OnCreate = FormCreate
+  object lWikiPage: TLabel
+    Left = 8
+    Height = 14
+    Top = 8
+    Width = 44
+    Caption = 'WikiPage'
+    Color = clNone
+    ParentColor = False
+  end
+  object lPageOffset: TLabel
+    Left = 8
+    Height = 14
+    Top = 60
+    Width = 58
+    Caption = 'lPageOffset'
+    Color = clNone
+    ParentColor = False
+  end
+  object eFoundPages: TLabel
+    Left = 8
+    Height = 14
+    Top = 104
+    Width = 66
+    Caption = 'eFoundPages'
+    Color = clNone
+    ParentColor = False
+  end
+  object lOutputDir: TLabel
+    Left = 8
+    Height = 14
+    Top = 240
+    Width = 51
+    Caption = 'Output Dir'
+    Color = clNone
+    ParentColor = False
+  end
+  object lLanguage: TLabel
+    Left = 288
+    Height = 14
+    Top = 8
+    Width = 48
+    Caption = 'Language'
+    Color = clNone
+    ParentColor = False
+  end
+  object eWikiPage: TEdit
+    Left = 8
+    Height = 23
+    Top = 28
+    Width = 268
+    Anchors = [akTop, akLeft, akRight]
+    TabOrder = 0
+    Text = 'http://www.ullihome.de/index.php/'
+  end
+  object ePageOffset: TEdit
+    Left = 8
+    Height = 23
+    Top = 76
+    Width = 412
+    Anchors = [akTop, akLeft, akRight]
+    TabOrder = 1
+  end
+  object lbFoundPages: TListBox
+    Left = 8
+    Height = 95
+    Top = 120
+    Width = 332
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    TabOrder = 2
+  end
+  object bSearch: TButton
+    Left = 345
+    Height = 25
+    Top = 120
+    Width = 75
+    Anchors = [akTop, akRight]
+    BorderSpacing.InnerBorder = 4
+    Caption = 'Search'
+    OnClick = bSearchClick
+    TabOrder = 3
+  end
+  object bCreate: TButton
+    Left = 345
+    Height = 25
+    Top = 286
+    Width = 75
+    Anchors = [akRight, akBottom]
+    BorderSpacing.InnerBorder = 4
+    Caption = 'Create'
+    OnClick = bCreateClick
+    TabOrder = 4
+  end
+  object pbProgress: TProgressBar
+    Left = 8
+    Height = 20
+    Top = 287
+    Width = 332
+    Anchors = [akLeft, akRight, akBottom]
+    Max = 100
+  end
+  object eOutputDir: TDirectoryEdit
+    Left = 8
+    Height = 23
+    Top = 259
+    Width = 332
+    ButtonWidth = 23
+    NumGlyphs = 1
+    Anchors = [akLeft, akRight, akBottom]
+    ParentColor = False
+    TabOrder = 5
+  end
+  object cbLanguage: TComboBox
+    Left = 288
+    Height = 21
+    Top = 28
+    Width = 132
+    Anchors = [akTop, akRight]
+    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
+    Items.Strings = (
+      'Special:Allpages'
+      'Spezial:Allpages'
+    )
+    MaxLength = 0
+    OnSelect = cbLanguageSelect
+    TabOrder = 6
+  end
+  object cbAddLinkedPages: TCheckBox
+    Left = 8
+    Height = 13
+    Top = 220
+    Width = 103
+    Caption = 'Add linked Pages'
+    TabOrder = 7
+  end
+  object Properties: TXMLPropStorage
+    StoredValues = <    
+      item
+        Name = 'OUTPUTDIR'
+      end    
+      item
+        Name = 'WIKIPAGE'
+      end    
+      item
+        Name = 'PAGEOFFSET'
+      end>
+    left = 4
+    top = 4
+  end
+end
diff --git a/applications/wikihelp/src/umain.lrs b/applications/wikihelp/src/umain.lrs
new file mode 100644
index 000000000..a0cb397a7
--- /dev/null
+++ b/applications/wikihelp/src/umain.lrs
@@ -0,0 +1,44 @@
+{ Das ist eine automatisch erzeugte Lazarus-Ressourcendatei }
+
+LazarusResources.Add('TfWikiHelp','FORMDATA',[
+  'TPF0'#10'TfWikiHelp'#9'fWikiHelp'#4'Left'#3'D'#1#6'Height'#3'B'#1#3'Top'#3
+  +#221#0#5'Width'#3#172#1#18'HorzScrollBar.Page'#3#171#1#18'VertScrollBar.Page'
+  +#3'A'#1#13'ActiveControl'#7#9'eWikiPage'#7'Caption'#6#8'WikiHelp'#7'OnClose'
+  +#7#9'FormClose'#8'OnCreate'#7#10'FormCreate'#0#6'TLabel'#9'lWikiPage'#4'Left'
+  +#2#8#6'Height'#2#14#3'Top'#2#8#5'Width'#2','#7'Caption'#6#8'WikiPage'#5'Colo'
+  +'r'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#11'lPageOffset'#4'Left'#2#8#6
+  +'Height'#2#14#3'Top'#2'<'#5'Width'#2':'#7'Caption'#6#11'lPageOffset'#5'Color'
+  +#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#11'eFoundPages'#4'Left'#2#8#6'H'
+  +'eight'#2#14#3'Top'#2'h'#5'Width'#2'B'#7'Caption'#6#11'eFoundPages'#5'Color'
+  +#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#10'lOutputDir'#4'Left'#2#8#6'He'
+  +'ight'#2#14#3'Top'#3#240#0#5'Width'#2'3'#7'Caption'#6#10'Output Dir'#5'Color'
+  +#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#9'lLanguage'#4'Left'#3' '#1#6'H'
+  +'eight'#2#14#3'Top'#2#8#5'Width'#2'0'#7'Caption'#6#8'Language'#5'Color'#7#6
+  +'clNone'#11'ParentColor'#8#0#0#5'TEdit'#9'eWikiPage'#4'Left'#2#8#6'Height'#2
+  +#23#3'Top'#2#28#5'Width'#3#12#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
+  +#8'TabOrder'#2#0#4'Text'#6'!http://www.ullihome.de/index.php/'#0#0#5'TEdit'
+  +#11'ePageOffset'#4'Left'#2#8#6'Height'#2#23#3'Top'#2'L'#5'Width'#3#156#1#7'A'
+  +'nchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#1#0#0#8'TListBox'
+  +#12'lbFoundPages'#4'Left'#2#8#6'Height'#2'_'#3'Top'#2'x'#5'Width'#3'L'#1#7'A'
+  +'nchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#8'TabOrder'#2#2#0#0#7
+  +'TButton'#7'bSearch'#4'Left'#3'Y'#1#6'Height'#2#25#3'Top'#2'x'#5'Width'#2'K'
+  +#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#7'Cap'
+  +'tion'#6#6'Search'#7'OnClick'#7#12'bSearchClick'#8'TabOrder'#2#3#0#0#7'TButt'
+  +'on'#7'bCreate'#4'Left'#3'Y'#1#6'Height'#2#25#3'Top'#3#30#1#5'Width'#2'K'#7
+  +'Anchors'#11#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4#7'Ca'
+  +'ption'#6#6'Create'#7'OnClick'#7#12'bCreateClick'#8'TabOrder'#2#4#0#0#12'TPr'
+  +'ogressBar'#10'pbProgress'#4'Left'#2#8#6'Height'#2#20#3'Top'#3#31#1#5'Width'
+  +#3'L'#1#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#3'Max'#2'd'#0#0#14
+  +'TDirectoryEdit'#10'eOutputDir'#4'Left'#2#8#6'Height'#2#23#3'Top'#3#3#1#5'Wi'
+  +'dth'#3'L'#1#11'ButtonWidth'#2#23#9'NumGlyphs'#2#1#7'Anchors'#11#6'akLeft'#7
+  +'akRight'#8'akBottom'#0#11'ParentColor'#8#8'TabOrder'#2#5#0#0#9'TComboBox'#10
+  +'cbLanguage'#4'Left'#3' '#1#6'Height'#2#21#3'Top'#2#28#5'Width'#3#132#0#7'An'
+  +'chors'#11#5'akTop'#7'akRight'#0#16'AutoCompleteText'#11#22'cbactEndOfLineCo'
+  +'mplete'#20'cbactSearchAscending'#0#13'Items.Strings'#1#6#16'Special:Allpage'
+  +'s'#6#16'Spezial:Allpages'#0#9'MaxLength'#2#0#8'OnSelect'#7#16'cbLanguageSel'
+  +'ect'#8'TabOrder'#2#6#0#0#9'TCheckBox'#16'cbAddLinkedPages'#4'Left'#2#8#6'He'
+  +'ight'#2#13#3'Top'#3#220#0#5'Width'#2'g'#7'Caption'#6#16'Add linked Pages'#8
+  +'TabOrder'#2#7#0#0#15'TXMLPropStorage'#10'Properties'#12'StoredValues'#14#1#4
+  +'Name'#6#9'OUTPUTDIR'#0#1#4'Name'#6#8'WIKIPAGE'#0#1#4'Name'#6#10'PAGEOFFSET'
+  +#0#0#4'left'#2#4#3'top'#2#4#0#0#0
+]);
diff --git a/applications/wikihelp/src/umain.pas b/applications/wikihelp/src/umain.pas
new file mode 100644
index 000000000..b07d1d936
--- /dev/null
+++ b/applications/wikihelp/src/umain.pas
@@ -0,0 +1,563 @@
+unit uMain;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
+  Buttons,httpsend, ComCtrls, Utils, xmlread,dom, EditBtn, FileUtil,
+  XMLPropStorage,Clipbrd;
+
+type
+
+  { TfWikiHelp }
+
+  TfWikiHelp = class(TForm)
+    bSearch: TButton;
+    bCreate: TButton;
+    eOutputDir: TDirectoryEdit;
+    ePageOffset: TEdit;
+    eWikiPage: TEdit;
+    eFoundPages: TLabel;
+    lOutputDir: TLabel;
+    lbFoundPages: TListBox;
+    lPageOffset: TLabel;
+    lWikiPage: TLabel;
+    pbProgress: TProgressBar;
+    Properties: TXMLPropStorage;
+    cbLanguage: TComboBox;
+    lLanguage: TLabel;
+    cbAddLinkedPages: TCheckBox;
+    procedure bCreateClick(Sender: TObject);
+    procedure bSearchClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure cbLanguageSelect(Sender: TObject);
+  private
+    { private declarations }
+    SpecialPageURL : string;
+    ExportPageURL : string;
+    ImageTagName : string;
+  public
+    { public declarations }
+    procedure Wiki2Html(wname : string;OutputDir : string;content : string);
+  end; 
+
+var
+  fWikiHelp: TfWikiHelp;
+
+implementation
+
+uses uAppconsts;
+
+{ TfWikiHelp }
+
+procedure TfWikiHelp.bSearchClick(Sender: TObject);
+var
+  http : THttpSend;
+  ss : TStringStream;
+  s : string;
+begin
+  lbFoundPages.Items.Clear;
+  ss := TStringStream.Create('');
+  http := THttpSend.Create;
+  http.HTTPMethod('GET',eWikiPage.Text+SpecialPageURL);
+  http.Document.SaveToStream(ss);
+  http.Free;
+  s := ss.DataString;
+  s := copy(s,pos('<table style="background: inherit;" border="0" width="100%"><tr><td>',s),length(s));
+  s := copy(s,0,pos('</td></tr></table><div class="printfooter">',s));
+  if s = '' then
+    begin
+      Showmessage('Special Page not found !');
+      exit;
+    end;
+  ss.Free;
+  while pos('<a href="',s) > 0 do
+    begin
+      s := copy(s,pos('<a href="',s)+10,length(s));
+      if copy(copy(s,0,pos('"',s)-1),0,length(ePageOffset.Text)) = ePageOffset.Text then
+        lbFoundPages.Items.Add(copy(s,0,pos('"',s)-1));
+      s := copy(s,pos('"',s)+1,length(s));
+    end;
+end;
+
+procedure TfWikiHelp.FormCreate(Sender: TObject);
+var
+  FindRec: TSearchRec;
+begin
+  if not DirectoryExists(GetConfigDir(vAppname)) then
+    ForceDirectories(GetConfigDir(vAppname));
+  Properties.FileName := GetConfigDir(vAppname)+'config.xml';
+  Properties.Restore;
+  if Properties.StoredValue['WIKIPAGE'] <> '' then
+    eWikiPage.Text := Properties.StoredValue['WIKIPAGE'];
+  ePageOffset.Text := Properties.StoredValue['PAGEOFFSET'];
+  eOutputDir.Text := Properties.StoredValue['OUTPUTDIR'];
+  cbLanguage.Items.Clear;
+  IF FindFirst(ExtractFileDir(Application.Exename) + DirectorySeparator + '*.xml', faAnyFile, FindRec) = 0 THEN
+    REPEAT
+      IF (FindRec.Name <> '.') AND (FindRec.Name <> '..') THEN
+        cbLanguage.Items.Add(copy(FindRec.Name,0,rpos('.',FindRec.Name)-1));
+    UNTIL FindNext(FindRec) <> 0;
+  FindClose(FindRec);
+end;
+
+procedure TfWikiHelp.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  Properties.StoredValue['WIKIPAGE'] := eWikiPage.Text;
+  Properties.StoredValue['PAGEOFFSET'] := ePageOffset.Text;
+  Properties.StoredValue['OUTPUTDIR'] := eOutputDir.Text;
+end;
+
+procedure TfWikiHelp.cbLanguageSelect(Sender: TObject);
+var
+  xml: TXMLDocument;
+  iNode: TDOMNode;
+begin
+  if FileExists(ExtractFilePath(Application.Exename)+DirectorySeparator+cbLanguage.Text+'.xml') then
+    begin
+      xml := TXMLDocument.Create;
+      ReadXMLFile(xml,ExtractFilePath(Application.Exename)+DirectorySeparator+cbLanguage.Text+'.xml');
+      iNode := xml.DocumentElement.FindNode('SpecialPageURL');
+        SpecialPageURL := iNode.FirstChild.NodeValue;
+      iNode := xml.DocumentElement.FindNode('ExportPageURL');
+      if Assigned(iNode) then
+        ExportPageURL := StringReplace(iNode.FirstChild.NodeValue,#10,'',[rfReplaceAll]);
+      iNode := xml.DocumentElement.FindNode('ImageTagName');
+      if Assigned(iNode) then
+        ImageTagName := iNode.FirstChild.NodeValue;
+      xml.Free;
+    end;
+end;
+
+procedure DoReplace(var InStr,OutStr : string;ReplaceTag,NewTag : string;MustbeInOneLine : Boolean = False);
+var
+  NewLine: String;
+begin
+  while pos(ReplaceTag,instr) > 0 do
+    begin
+      NewLine := copy(instr,pos(ReplaceTag,instr)+length(ReplaceTag),length(instr));
+      if MustBeInOneLine
+      and ((pos(#10,NewLine) < pos(ReplaceTag,NewLine))) and (not (length(NewLine) = pos(ReplaceTag,NewLine)+length(ReplaceTag)-1)) then
+        break;
+      outstr := outstr+copy(instr,0,pos(ReplaceTag,instr)-1);
+      instr := copy(instr,pos(replaceTag,instr)+length(ReplaceTag),length(instr));
+      outstr := outstr+'<'+NewTag+'>'+copy(instr,0,pos(ReplaceTag,instr)-1)+'</'+NewTag+'>';
+      instr := copy(instr,pos(ReplaceTag,instr)+length(ReplaceTag),length(instr));
+    end;
+  outstr := outstr+instr;
+  instr := outstr;
+  outstr := '';
+end;
+
+procedure TfWikiHelp.Wiki2Html(wname: string;OutputDir : string;content: string);
+var
+  f : TextFile;
+  istr : string;
+  ostr : string;
+  http : THttpSend;
+  open_uls,act_uls : integer;
+  i: LongInt;
+  intd: Boolean;
+  tstr: String;
+  aWikiStart: String;
+  linkcontent: String;
+begin
+  istr := content;
+  ForceDirectories(OutputDir);
+  AssignFile(f,AppendPathDelim(OutputDir)+ValidateFileName(lowercase(wname))+'.html');
+  Rewrite(f);
+  ostr := '';
+  open_uls := 0;
+  act_uls := 0;
+  //Remove NOTOC
+  istr := StringReplace(istr,'__NOTOC__','',[rfReplaceAll]);
+  //Remove Templates
+  while pos('{{',istr) > 0 do
+    begin
+      ostr := ostr+copy(istr,0,pos('{{',istr)-1);
+      istr := copy(istr,pos('{{',istr)+2,length(istr));
+
+      istr := copy(istr,pos('}}',istr)+2,length(istr));
+    end;
+  ostr := ostr+istr;
+  istr := ostr;
+  ostr := '';
+  //Replace Lists
+  while pos('*',istr) > 0 do
+    begin
+      ostr := ostr+copy(istr,0,pos('*',istr)-1);
+      istr := copy(istr,pos('*',istr)+1,length(istr));
+      inc(act_uls);
+      while istr[1] = '*' do
+        begin
+          inc(act_uls);
+          istr := copy(istr,2,length(istr));
+        end;
+      if open_uls < act_uls then
+        begin
+          for i := open_uls to act_uls-1 do
+            ostr := ostr+'<ul>';
+        end
+      else
+        begin
+          for i := act_uls to open_uls-1 do
+            ostr := ostr+'</ul>';
+        end;
+      open_uls := act_uls;
+      act_uls := 0;
+      ostr := ostr+'<li>';
+      if pos(#10,istr) > 0 then
+        begin
+          ostr := ostr+copy(istr,0,pos(#10,istr)-1);
+          istr := copy(istr,pos(#10,istr)+1,length(istr));
+        end
+      else
+        begin
+          ostr := ostr+istr;
+          istr := '';
+        end;
+      ostr := ostr+'</li>';
+      if (length(istr) > 0) and (istr[1] <> '*') then
+        begin
+          for i := 0 to open_uls-1 do
+            ostr := ostr+'</ul>';
+          open_uls := 0;
+        end;
+    end;
+  ostr := ostr+istr;
+  istr := ostr;
+  ostr := '';
+  open_uls := 0;
+  act_uls := 0;
+  //Replace Numerated Lists
+  while pos('#',istr) > 0 do
+    begin
+      ostr := ostr+copy(istr,0,pos('#',istr)-1);
+      istr := copy(istr,pos('#',istr)+1,length(istr));
+      inc(act_uls);
+      while istr[1] = '#' do
+        begin
+          inc(act_uls);
+          istr := copy(istr,2,length(istr));
+        end;
+      if open_uls < act_uls then
+        begin
+          for i := open_uls to act_uls-1 do
+            ostr := ostr+'<ol>';
+        end
+      else
+        begin
+          for i := act_uls to open_uls-1 do
+            ostr := ostr+'</ol>';
+        end;
+      open_uls := act_uls;
+      act_uls := 0;
+      ostr := ostr+'<li>';
+      if pos(#10,istr) > 0 then
+        begin
+          ostr := ostr+copy(istr,0,pos(#10,istr)-1);
+          istr := copy(istr,pos(#10,istr)+1,length(istr));
+        end
+      else
+        begin
+          ostr := ostr+istr;
+          istr := '';
+        end;
+      ostr := ostr+'</li>';
+      if (length(istr) > 0) and (istr[1] <> '#') then
+        begin
+          for i := 0 to open_uls-1 do
+            ostr := ostr+'</ol>';
+          open_uls := 0;
+        end;
+    end;
+  ostr := ostr+istr;
+  istr := ostr;
+  ostr := '';
+  //Replace Tables
+  while pos('{|',istr) > 0 do
+    begin
+      ostr := ostr+copy(istr,0,pos('{|',istr)-1);
+      istr := copy(istr,pos('{|',istr)+2,length(istr));
+      //remove also content behing {|
+      istr := copy(istr,pos(#10,istr)-1,length(istr));
+      tstr := copy(istr,0,pos(#10+'|}',istr)-1);
+      istr := copy(istr,pos(#10+'|}',istr)+3,length(istr));
+      ostr := ostr+'<table><tr>';
+      tstr := StringReplace(tstr,'|-','</tr><tr>',[rfReplaceAll]);
+      intd := False;
+      while length(tstr) > 2 do
+        begin
+          if ((tstr[1] = #10) and (tstr[2] = '|'))
+          or ((tstr[1] = #10) and (tstr[2] = '!')) then
+            begin
+              if inTD then
+                ostr := ostr+'</td>'
+              else
+                ostr := ostr+'<td>';
+              inTD := not inTD;
+              tstr := copy(tstr,3,length(tstr));
+            end
+          else if ((tstr[1] = '!') and (tstr[2] = '!'))
+               or ((tstr[1] = '|') and (tstr[2] = '|')) then
+            begin
+              if inTD then
+                begin
+                  ostr := ostr+'</td><td>'
+                end
+              else //Schould never happen
+                begin
+                  ostr := ostr+'<td>';
+                  inTD := True;
+                end;
+              tstr := copy(tstr,3,length(tstr));
+            end
+          else
+            begin
+              if (tstr[1] = #10) and InTD then
+                begin
+                  ostr := ostr+'</td>';
+                  InTD := False;
+                end
+              else
+                ostr := ostr+tstr[1];
+              tstr := copy(tstr,2,length(tstr));
+            end;
+        end;
+      ostr := ostr+tstr+'</tr></table>';
+    end;
+  ostr := ostr+istr;
+  istr := ostr;
+  ostr := '';
+  //Replace Images
+  while pos('[['+ImageTagName+':',istr) > 0 do
+    begin
+      ostr := ostr+copy(istr,0,pos('[['+ImageTagName+':',istr)-1);
+      istr := copy(istr,pos('[['+ImageTagName+':',istr)+length(ImageTagname)+3,length(istr));
+      if (pos('|',istr) > 0) and (pos('|',istr) < pos(']]',istr)) then
+        begin
+          http := THttpSend.Create;
+          http.HTTPMethod('GET','/images/'+copy(istr,0,pos('|',istr)-1));
+          http.Document.SaveToFile(AppendPathDelim(OutputDir)+ValidateFileName(lowercase(copy(istr,0,pos('|',istr)-1))));
+          http.Free;
+          ostr := ostr+'<img src="'+ValidateFileName(lowercase(copy(istr,0,pos('|',istr)-1)))+'" alt="';
+          istr := copy(istr,0,pos('|',istr)+1);
+          ostr := ostr+copy(istr,0,pos(']]',istr)-1)+'"></img>';
+          istr := copy(istr,pos(']]',istr)+2,length(istr));
+        end
+      else
+        begin
+          aWikiStart := eWikiPage.Text;
+          if pos('index.php',aWikiStart) > 0 then
+            aWikiStart := copy(aWikiStart,0,pos('index.php',aWikiStart)-1);
+          http := THttpSend.Create;
+          http.HTTPMethod('GET',aWikiStart+'/images/'+copy(istr,0,pos(']]',istr)-1));
+          http.Document.SaveToFile(AppendPathDelim(OutputDir)+ValidateFileName(lowercase(copy(istr,0,pos(']]',istr)-1))));
+          http.Free;
+          ostr := ostr+'<img src="'+ValidateFileName(lowercase(copy(istr,0,pos(']]',istr)-1)))+'" alt="'+copy(istr,0,pos(']]',istr)-1)+'"></img>';
+          istr := copy(istr,pos(']]',istr)+2,length(istr));
+        end;
+    end;
+  ostr := ostr+istr;
+  istr := ostr;
+  ostr := '';
+  //Replace Links
+  while pos('[[',istr) > 0 do
+    begin
+      ostr := ostr+copy(istr,0,pos('[[',istr)-1);
+      istr := copy(istr,pos('[[',istr)+2,length(istr));
+      if (pos('|',istr) > 0) and (pos('|',istr) < pos(']]',istr)) then
+        begin
+          linkcontent := copy(istr,0,pos('|',istr)-1);
+          if (cbAddLinkedPages.Checked and (lbFoundPages.Items.IndexOf(linkcontent) = -1)) then
+            begin
+              lbFoundPages.Items.Add(linkcontent);
+              pbProgress.Max := pbProgress.Max+1;
+            end;
+          if lbFoundPages.Items.IndexOf(linkcontent) > -1 then
+            begin
+              ostr := ostr+'<a href="'+ValidateFileName(linkcontent)+'.html">';
+              istr := copy(istr,pos('|',istr)+1,length(istr));
+              ostr := ostr+copy(istr,0,pos(']]',istr)-1)+'</a>';
+              istr := copy(istr,pos(']]',istr)+2,length(istr));
+            end
+          else
+            begin
+              istr := copy(istr,pos('|',istr)+1,length(istr));
+              ostr := ostr+copy(istr,0,pos(']]',istr)-1);
+              istr := copy(istr,pos(']]',istr)+2,length(istr));
+            end;
+        end
+      else
+        begin
+          linkcontent := copy(istr,0,pos(']]',istr)-1);
+          if (cbAddLinkedPages.Checked and (lbFoundPages.Items.IndexOf(linkcontent) = -1)) then
+            begin
+              lbFoundPages.Items.Add(linkcontent);
+              pbProgress.Max := pbProgress.Max+1;
+            end;
+          if lbFoundPages.Items.IndexOf(linkcontent) > -1 then
+            begin
+              ostr := ostr+'<a href="'+ValidateFileName(linkcontent)+'.html">'+copy(istr,0,pos(']]',istr)-1)+'</a>';
+              istr := copy(istr,pos(']]',istr)+2,length(istr));
+            end
+          else
+            begin
+              ostr := ostr+copy(istr,0,pos(']]',istr)-1);
+              istr := copy(istr,pos(']]',istr)+2,length(istr));
+            end;
+        end;
+    end;
+  ostr := ostr+istr;
+  istr := ostr;
+  ostr := '';
+  //Replace extern Links
+  while pos('[http://',lowercase(istr)) > 0 do
+    begin
+      ostr := ostr+copy(istr,0,pos('[http://',lowercase(istr))-1);
+      istr := copy(istr,pos('[http://',lowercase(istr)),length(istr));
+      if (pos(' ',istr) > 0) and (pos(' ',istr) < pos(']',lowercase(istr))) then
+        begin
+          ostr := ostr+'<a href="'+StringReplace(copy(istr,2,pos(' ',istr)-2),'http://./','',[rfReplaceAll])+'" target="_BLANK">';
+          istr := copy(istr,pos(' ',istr)+1,length(istr));
+          ostr := ostr+copy(istr,0,pos(']',lowercase(istr))-1)+'</a>';
+          istr := copy(istr,pos(']',lowercase(istr))+1,length(istr));
+        end
+      else
+        begin
+          ostr := ostr+'<a href="'+StringReplace(copy(istr,2,pos(']',lowercase(istr))-2),'http://./','',[rfReplaceAll])+'" target="_BLANK">'+StringReplace(copy(istr,2,pos(']',lowercase(istr))-2),'http://./','',[rfReplaceAll])+'</a>';
+          istr := copy(istr,pos(']',lowercase(istr))+1,length(istr));
+        end;
+    end;
+  ostr := ostr+istr;
+  istr := ostr;
+  ostr := '';
+  //Replace Bold Text
+  while pos('''''''',istr) > 0 do
+    begin
+      ostr := ostr+copy(istr,0,pos('''''''',istr)-1);
+      istr := copy(istr,pos('''''''',istr)+3,length(istr));
+      ostr := ostr+'<b>'+copy(istr,0,pos('''''''',istr)-1)+'</b>';
+      istr := copy(istr,pos('''''''',istr)+3,length(istr));
+    end;
+  ostr := ostr+istr;
+  istr := ostr;
+  ostr := '';
+  //Replace Italic Text
+  while pos('''''',istr) > 0 do
+    begin
+      ostr := ostr+copy(istr,0,pos('''''',istr)-1);
+      istr := copy(istr,pos('''''',istr)+2,length(istr));
+      ostr := ostr+'<i>'+copy(istr,0,pos('''''',istr)-1)+'</i>';
+      istr := copy(istr,pos('''''',istr)+2,length(istr));
+    end;
+  ostr := ostr+istr;
+  istr := ostr;
+  ostr := '';
+  //Replace Header Level 5
+  DoReplace(istr,ostr,'=====','h6',True);
+  //Replace Header Level 4
+  DoReplace(istr,ostr,'====','h5',True);
+  //Replace Header Level 3
+  DoReplace(istr,ostr,'===','h4',True);
+  //Replace Header Level 2
+  DoReplace(istr,ostr,'==','h3',True);
+  //Replace Header Level 1
+//  DoReplace(istr,ostr,'=','h2',True); //Too many problems at time TODO: check if we are in an html tag bevore replace
+  //Process unformated stuff
+  while pos(#10+' ',istr) > 0 do
+    begin
+      //Replace Line breaks in text bevore pre
+      ostr := ostr+StringReplace(StringReplace(copy(istr,0,pos(#10+' ',istr)-1),#10#10,'<br><br>',[rfReplaceAll]),#10,'',[rfReplaceAll]);
+      istr := copy(istr,pos(#10+' ',istr)+2,length(istr));
+      ostr := ostr+'<pre>';
+      while (pos(#10+' ',istr) > 0) do
+        begin
+          ostr := ostr+copy(istr,0,pos(#10,istr));
+          istr := copy(istr,pos(#10,istr)+1,length(istr));
+          if (length(istr) > 0) and (istr[1] <> ' ') then
+            break
+          else
+            istr := copy(istr,2,length(istr));
+        end;
+      ostr := ostr+'</pre>';
+    end;
+  ostr := ostr+StringReplace(StringReplace(istr,#10#10,'<br><br>',[rfReplaceAll]),#10,'',[rfReplaceAll]);
+  //Remove <br> after <h*>
+  ostr := StringReplace(ostr,'</h2><br><br>','</h2>',[rfReplaceAll]);
+  ostr := StringReplace(ostr,'</h3><br><br>','</h3>',[rfReplaceAll]);
+  ostr := StringReplace(ostr,'</h4><br><br>','</h4>',[rfReplaceAll]);
+  ostr := StringReplace(ostr,'</h5><br><br>','</h5>',[rfReplaceAll]);
+  ostr := StringReplace(ostr,'</h6><br><br>','</h6>',[rfReplaceAll]);
+
+  ostr := StringReplace(ostr,'</h2><br>','</h2>',[rfReplaceAll]);
+  ostr := StringReplace(ostr,'</h3><br>','</h3>',[rfReplaceAll]);
+  ostr := StringReplace(ostr,'</h4><br>','</h4>',[rfReplaceAll]);
+  ostr := StringReplace(ostr,'</h5><br>','</h5>',[rfReplaceAll]);
+  ostr := StringReplace(ostr,'</h6><br>','</h6>',[rfReplaceAll]);
+
+  write(f,'<html><head><title>'+wname+'</title></head><body><font face="arial,verdana">'+ostr+'</font></body></html>');
+  CloseFile(f);
+end;
+
+procedure TfWikiHelp.bCreateClick(Sender: TObject);
+var
+  http : THttpSend;
+  xml : TXMLDocument;
+  i: Integer;
+  iNode: TDOMNode;
+  a: Integer;
+  aWikiStart : string;
+begin
+  bCreate.Enabled := false;
+  Screen.Cursor := crHourglass;
+  pbProgress.Max := lbFoundPages.Items.Count;
+  pbProgress.Position := 0;
+  while lbFoundPages.Items.Count > 0 do
+    begin
+      aWikiStart := eWikiPage.Text;
+      if pos('index.php',aWikiStart) > 0 then
+        aWikiStart := copy(aWikiStart,0,pos('index.php',aWikiStart)-1);
+      http := THttpSend.Create;
+      http.HTTPMethod('POST',aWikiStart+Format(ExportPageURL,[HTTPEncode(lbFoundPages.Items[0])]));
+      if http.ResultCode = 200 then
+        begin
+          xml := TXMLDocument.Create;
+          try
+            ReadXMLFile(xml,http.Document);
+            iNode := xml.DocumentElement.FindNode('page');
+            if Assigned(iNode) then
+              iNode := iNode.FindNode('revision');
+            if Assigned(iNode) then
+              iNode := iNode.FindNode('text');
+            if Assigned(iNode) then
+              begin
+                Wiki2Html(lbFoundPages.Items[0],eOutputDir.Text,iNode.FirstChild.NodeValue);
+              end
+            else
+              Showmessage('Page: '+lbFoundPages.Items[0]+' not found !');
+            xml.Free;
+          except
+            on e : Exception do
+              Showmessage('Error Processing :'+lbFoundPages.Items[0]+':'+e.Message);
+          end;
+        end
+      else
+        Showmessage('Page: '+lbFoundPages.Items[0]+' not found !');
+      http.Free;
+      pbProgress.Position := i+1;
+      lbFoundPages.Items.Delete(0);
+      Application.Processmessages;
+    end;
+  Screen.Cursor := crDefault;
+  bCreate.Enabled := True;
+end;
+
+initialization
+  {$I umain.lrs}
+
+end.
+
diff --git a/applications/wikihelp/src/wikihelp.lpi b/applications/wikihelp/src/wikihelp.lpi
new file mode 100644
index 000000000..5fbcab034
--- /dev/null
+++ b/applications/wikihelp/src/wikihelp.lpi
@@ -0,0 +1,372 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <ProjectOptions>
+    <PathDelim Value="\"/>
+    <Version Value="5"/>
+    <General>
+      <MainUnit Value="0"/>
+      <IconPath Value="./"/>
+      <TargetFileExt Value=".exe"/>
+      <ActiveEditorIndexAtStart Value="0"/>
+    </General>
+    <VersionInfo>
+      <ProjectVersion Value=""/>
+      <Language Value=""/>
+      <CharSet Value=""/>
+    </VersionInfo>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
+      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
+    </PublishOptions>
+    <RunParams>
+      <local>
+        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+      </local>
+    </RunParams>
+    <RequiredPackages Count="1">
+      <Item1>
+        <PackageName Value="LCL"/>
+      </Item1>
+    </RequiredPackages>
+    <Units Count="25">
+      <Unit0>
+        <Filename Value="wikihelp.lpr"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="wikihelp"/>
+        <CursorPos X="49" Y="15"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="46"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="umain.pas"/>
+        <ComponentName Value="fWikiHelp"/>
+        <IsPartOfProject Value="True"/>
+        <ResourceFilename Value="umain.lrs"/>
+        <UnitName Value="uMain"/>
+        <CursorPos X="55" Y="529"/>
+        <TopLine Value="1"/>
+        <EditorIndex Value="0"/>
+        <UsageCount Value="46"/>
+        <Loaded Value="True"/>
+      </Unit1>
+      <Unit2>
+        <Filename Value="..\..\LKomponenten\synapse\httpsend.pas"/>
+        <UnitName Value="httpsend"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="37"/>
+        <UsageCount Value="10"/>
+      </Unit2>
+      <Unit3>
+        <Filename Value="..\..\Programme\lazarus\lcl\interfaces\win32\interfaces.pp"/>
+        <UnitName Value="Interfaces"/>
+        <CursorPos X="38" Y="31"/>
+        <TopLine Value="16"/>
+        <UsageCount Value="10"/>
+      </Unit3>
+      <Unit4>
+        <Filename Value="..\..\general\Utils.pas"/>
+        <UnitName Value="Utils"/>
+        <CursorPos X="1" Y="206"/>
+        <TopLine Value="194"/>
+        <UsageCount Value="13"/>
+      </Unit4>
+      <Unit5>
+        <Filename Value="..\..\Programme\lazarus\fpc\2.1.1\source\fcl\xml\xmlread.pp"/>
+        <UnitName Value="XMLRead"/>
+        <CursorPos X="63" Y="33"/>
+        <TopLine Value="22"/>
+        <UsageCount Value="13"/>
+      </Unit5>
+      <Unit6>
+        <Filename Value="..\..\Programme\lazarus\fpc\2.1.1\source\fcl\xml\dom.pp"/>
+        <UnitName Value="DOM"/>
+        <CursorPos X="3" Y="449"/>
+        <TopLine Value="461"/>
+        <UsageCount Value="13"/>
+      </Unit6>
+      <Unit7>
+        <Filename Value="..\..\general\ubugtracker.pas"/>
+        <ComponentName Value="fBugTracker"/>
+        <HasResources Value="True"/>
+        <UnitName Value="uBugtracker"/>
+        <CursorPos X="14" Y="4"/>
+        <TopLine Value="199"/>
+        <UsageCount Value="10"/>
+      </Unit7>
+      <Unit8>
+        <Filename Value="..\..\Programme\lazarus\lcl\editbtn.pas"/>
+        <UnitName Value="EditBtn"/>
+        <CursorPos X="70" Y="9"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="12"/>
+      </Unit8>
+      <Unit9>
+        <Filename Value="..\..\general\uhelp.pas"/>
+        <ComponentName Value="fHelpBrowser"/>
+        <HasResources Value="True"/>
+        <UnitName Value="uHelp"/>
+        <CursorPos X="1" Y="327"/>
+        <TopLine Value="318"/>
+        <UsageCount Value="13"/>
+      </Unit9>
+      <Unit10>
+        <Filename Value="..\..\Programme\lazarus\lcl\include\control.inc"/>
+        <CursorPos X="1" Y="2369"/>
+        <TopLine Value="2354"/>
+        <UsageCount Value="12"/>
+      </Unit10>
+      <Unit11>
+        <Filename Value="..\..\Programme\lazarus\lcl\interfaces\win32\win32listsl.inc"/>
+        <CursorPos X="22" Y="173"/>
+        <TopLine Value="165"/>
+        <UsageCount Value="12"/>
+      </Unit11>
+      <Unit12>
+        <Filename Value="..\..\promenteus\help\prometheus-helpde.html"/>
+        <CursorPos X="1024" Y="1"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="10"/>
+        <SyntaxHighlighter Value="HTML"/>
+      </Unit12>
+      <Unit13>
+        <Filename Value="..\..\promenteus\Src\umain.pas"/>
+        <ComponentName Value="fMain"/>
+        <HasResources Value="True"/>
+        <UnitName Value="umain"/>
+        <CursorPos X="1" Y="154"/>
+        <TopLine Value="144"/>
+        <UsageCount Value="10"/>
+      </Unit13>
+      <Unit14>
+        <Filename Value="uappconsts.pas"/>
+        <UnitName Value="uAppconsts"/>
+        <CursorPos X="23" Y="9"/>
+        <TopLine Value="1"/>
+        <EditorIndex Value="1"/>
+        <UsageCount Value="13"/>
+        <Loaded Value="True"/>
+      </Unit14>
+      <Unit15>
+        <Filename Value="..\..\Programme\lazarus\lcl\xmlpropstorage.pas"/>
+        <UnitName Value="XMLPropStorage"/>
+        <CursorPos X="17" Y="131"/>
+        <TopLine Value="117"/>
+        <UsageCount Value="10"/>
+      </Unit15>
+      <Unit16>
+        <Filename Value="..\..\promenteus\help\prometheus-helpreportdesignertextde.html"/>
+        <CursorPos X="91" Y="2"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="10"/>
+        <SyntaxHighlighter Value="HTML"/>
+      </Unit16>
+      <Unit17>
+        <Filename Value="..\..\TCS_Programmer\help\tcs_programmer-helpde.html"/>
+        <CursorPos X="1024" Y="1"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="10"/>
+        <SyntaxHighlighter Value="HTML"/>
+      </Unit17>
+      <Unit18>
+        <Filename Value="..\..\TCS_Programmer\general\utcsbus.pas"/>
+        <UnitName Value="utcsbus"/>
+        <CursorPos X="1" Y="3648"/>
+        <TopLine Value="3622"/>
+        <UsageCount Value="10"/>
+      </Unit18>
+      <Unit19>
+        <Filename Value="..\output\i386-win32\deutsch.xml"/>
+        <CursorPos X="1" Y="5"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="10"/>
+        <SyntaxHighlighter Value="XML"/>
+      </Unit19>
+      <Unit20>
+        <Filename Value="..\output\i386-win32\deutsch2.xml"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="10"/>
+        <SyntaxHighlighter Value="XML"/>
+      </Unit20>
+      <Unit21>
+        <Filename Value="..\..\lazarus\fpc\2.0.4\source\fcl\xml\dom.pp"/>
+        <UnitName Value="DOM"/>
+        <CursorPos X="25" Y="1504"/>
+        <TopLine Value="1480"/>
+        <UsageCount Value="10"/>
+      </Unit21>
+      <Unit22>
+        <Filename Value="..\..\lazarus\fpc\2.1.1\source\fcl\xml\dom.pp"/>
+        <UnitName Value="DOM"/>
+        <CursorPos X="14" Y="276"/>
+        <TopLine Value="251"/>
+        <UsageCount Value="10"/>
+      </Unit22>
+      <Unit23>
+        <Filename Value="..\..\lazarus\fpc\2.0.4\source\fcl\tests\xmldump.pp"/>
+        <UnitName Value="xmldump"/>
+        <CursorPos X="27" Y="8"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="10"/>
+      </Unit23>
+      <Unit24>
+        <Filename Value="..\..\..\..\test.xml"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="10"/>
+        <SyntaxHighlighter Value="XML"/>
+      </Unit24>
+    </Units>
+    <JumpHistory Count="29" HistoryIndex="28">
+      <Position1>
+        <Filename Value="umain.pas"/>
+        <Caret Line="524" Column="24" TopLine="516"/>
+      </Position1>
+      <Position2>
+        <Filename Value="umain.pas"/>
+        <Caret Line="509" Column="1" TopLine="503"/>
+      </Position2>
+      <Position3>
+        <Filename Value="umain.pas"/>
+        <Caret Line="510" Column="1" TopLine="495"/>
+      </Position3>
+      <Position4>
+        <Filename Value="umain.pas"/>
+        <Caret Line="512" Column="1" TopLine="497"/>
+      </Position4>
+      <Position5>
+        <Filename Value="umain.pas"/>
+        <Caret Line="513" Column="1" TopLine="498"/>
+      </Position5>
+      <Position6>
+        <Filename Value="umain.pas"/>
+        <Caret Line="514" Column="1" TopLine="499"/>
+      </Position6>
+      <Position7>
+        <Filename Value="umain.pas"/>
+        <Caret Line="516" Column="1" TopLine="501"/>
+      </Position7>
+      <Position8>
+        <Filename Value="umain.pas"/>
+        <Caret Line="145" Column="1" TopLine="136"/>
+      </Position8>
+      <Position9>
+        <Filename Value="umain.pas"/>
+        <Caret Line="520" Column="20" TopLine="506"/>
+      </Position9>
+      <Position10>
+        <Filename Value="umain.pas"/>
+        <Caret Line="522" Column="1" TopLine="507"/>
+      </Position10>
+      <Position11>
+        <Filename Value="umain.pas"/>
+        <Caret Line="523" Column="1" TopLine="508"/>
+      </Position11>
+      <Position12>
+        <Filename Value="umain.pas"/>
+        <Caret Line="525" Column="1" TopLine="510"/>
+      </Position12>
+      <Position13>
+        <Filename Value="umain.pas"/>
+        <Caret Line="527" Column="1" TopLine="512"/>
+      </Position13>
+      <Position14>
+        <Filename Value="umain.pas"/>
+        <Caret Line="531" Column="1" TopLine="516"/>
+      </Position14>
+      <Position15>
+        <Filename Value="umain.pas"/>
+        <Caret Line="539" Column="1" TopLine="522"/>
+      </Position15>
+      <Position16>
+        <Filename Value="umain.pas"/>
+        <Caret Line="540" Column="1" TopLine="522"/>
+      </Position16>
+      <Position17>
+        <Filename Value="umain.pas"/>
+        <Caret Line="541" Column="1" TopLine="522"/>
+      </Position17>
+      <Position18>
+        <Filename Value="umain.pas"/>
+        <Caret Line="542" Column="1" TopLine="522"/>
+      </Position18>
+      <Position19>
+        <Filename Value="umain.pas"/>
+        <Caret Line="510" Column="1" TopLine="495"/>
+      </Position19>
+      <Position20>
+        <Filename Value="umain.pas"/>
+        <Caret Line="511" Column="1" TopLine="496"/>
+      </Position20>
+      <Position21>
+        <Filename Value="umain.pas"/>
+        <Caret Line="513" Column="1" TopLine="498"/>
+      </Position21>
+      <Position22>
+        <Filename Value="umain.pas"/>
+        <Caret Line="514" Column="1" TopLine="499"/>
+      </Position22>
+      <Position23>
+        <Filename Value="umain.pas"/>
+        <Caret Line="515" Column="1" TopLine="500"/>
+      </Position23>
+      <Position24>
+        <Filename Value="umain.pas"/>
+        <Caret Line="517" Column="1" TopLine="502"/>
+      </Position24>
+      <Position25>
+        <Filename Value="umain.pas"/>
+        <Caret Line="518" Column="1" TopLine="503"/>
+      </Position25>
+      <Position26>
+        <Filename Value="umain.pas"/>
+        <Caret Line="519" Column="1" TopLine="504"/>
+      </Position26>
+      <Position27>
+        <Filename Value="umain.pas"/>
+        <Caret Line="523" Column="10" TopLine="514"/>
+      </Position27>
+      <Position28>
+        <Filename Value="umain.pas"/>
+        <Caret Line="187" Column="1" TopLine="169"/>
+      </Position28>
+      <Position29>
+        <Filename Value="umain.pas"/>
+        <Caret Line="534" Column="41" TopLine="523"/>
+      </Position29>
+    </JumpHistory>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="5"/>
+    <PathDelim Value="\"/>
+    <SearchPaths>
+      <OtherUnitFiles Value="..\..\lkomponenten\synapse\;..\..\general\"/>
+      <UnitOutputDirectory Value="..\output\$(TargetCPU)-$(TargetOS)"/>
+      <SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
+    </SearchPaths>
+    <CodeGeneration>
+      <Generate Value="Faster"/>
+    </CodeGeneration>
+    <Linking>
+      <Options>
+        <Win32>
+          <GraphicApplication Value="True"/>
+        </Win32>
+      </Options>
+    </Linking>
+    <Other>
+      <CompilerPath Value="$(CompPath)"/>
+    </Other>
+  </CompilerOptions>
+  <Debugging>
+    <BreakPoints Count="1">
+      <Item1>
+        <Source Value="..\..\LKomponenten\tdbf\dbf_common.pas"/>
+        <Line Value="375"/>
+      </Item1>
+    </BreakPoints>
+  </Debugging>
+</CONFIG>