diff -u Sources/Core/_orig\Definition.Inc Sources/Core\Definition.Inc
--- Sources/Core/_orig\Definition.Inc	Fri May 29 16:00:37 2009
+++ Sources/Core\Definition.Inc	Fri May 29 16:52:23 2009
@@ -33,7 +33,7 @@
 //{$DEFINE PYTHON23}
 //{$DEFINE PYTHON24}
 //{$DEFINE PYTHON25}
-//{$DEFINE PYTHON26}
+{$DEFINE PYTHON26}
 //{$DEFINE PYTHON30}
 //{$DEFINE PYTHON31}
 
@@ -142,6 +142,13 @@
     {$DEFINE DELPHI2007_OR_HIGHER}
   {$ENDIF}
 {$ENDIF}
+{$IFDEF FPC}
+  {$DEFINE DELPHI4_OR_HIGHER}
+  {$DEFINE DELPHI5_OR_HIGHER}
+  {$DEFINE DELPHI6_OR_HIGHER}
+  {$DEFINE DELPHI7_OR_HIGHER}
+{$ENDIF}
+
 
 
 /////////////////////////////////////////////////////////////////////////////
diff -u Sources/Core/_orig\PythonD6Decs.pas Sources/Core\PythonD6Decs.pas
--- Sources/Core/_orig\PythonD6Decs.pas	Fri May 29 16:59:23 2009
+++ Sources/Core\PythonD6Decs.pas	Fri May 29 17:04:36 2009
@@ -949,7 +949,7 @@
   result:= 1;
   if(fLabel=nil) then exit;
   result:= 0;
-  fLabel.Caption:= PyObjectAsVariant(Value);
+  fLabel.Caption:= String(PyObjectAsVariant(Value));
 end; end;
 
 function TPyLabel.DoSetLayout(Value: PPyObject; Context: Pointer): integer;
@@ -966,7 +966,7 @@
   result:= 1;
   if(fLabel=nil) then exit;
   result:= 0;
-  fLabel.Transparent:= PyObjectAsVariant(Value);
+  fLabel.Transparent:= Boolean(PyObjectAsVariant(Value));
 end; end; 
 
 function TPyLabel.DoSetWordWrap(Value: PPyObject;
@@ -1012,7 +1012,7 @@
   result:= 1;
   if(fForm=nil) then exit;
   result:= 0;
-  fForm.Caption:= PyObjectAsVariant(Value);
+  fForm.Caption:= String(PyObjectAsVariant(Value));
 end; end;
 
 class procedure TPyForm.RegisterGetSets(PythonType: TPythonType);
diff -u Sources/Core/_orig\TinyWideStrings.pas Sources/Core\TinyWideStrings.pas
--- Sources/Core/_orig\TinyWideStrings.pas	Fri May 29 16:00:37 2009
+++ Sources/Core\TinyWideStrings.pas	Fri May 29 19:57:09 2009
@@ -66,10 +66,11 @@
 procedure TWideStringList.Error(const Msg: WideString; Data: Integer);
 
   function ReturnAddr: Pointer;
+  {$IFDEF FPC} begin {$ENDIF}
   asm
           MOV     EAX,[EBP+4]
   end;
-
+  {$IFDEF FPC} end; {$ENDIF}
 begin
   raise EStringListError.CreateFmt(Msg, [Data]) at ReturnAddr;
 end;
diff -ur _orig\p4dlaz.lpk .\p4dlaz.lpk
--- _orig\p4dlaz.lpk	Wed May 25 20:02:44 2005
+++ .\p4dlaz.lpk	Fri May 29 16:49:58 2009
@@ -1,53 +1,51 @@
 <?xml version="1.0"?>
 <CONFIG>
-  <Package Version="2">
+  <Package Version="3">
     <PathDelim Value="\"/>
     <Name Value="P4DLaz"/>
     <CompilerOptions>
-      <Version Value="5"/>
+      <Version Value="8"/>
       <PathDelim Value="\"/>
       <SearchPaths>
-        <OtherUnitFiles Value="$(PackageDir)\"/>
-        <UnitOutputDirectory Value="C:\P4D\temp"/>
+        <OtherUnitFiles Value="$(PackageDir)\;$(PackageDir)\Sources\Core\"/>
+        <UnitOutputDirectory Value="C:\temp\P4D"/>
       </SearchPaths>
       <Parsing>
         <SyntaxOptions>
-          <DelphiCompat Value="True"/>
+          <SyntaxMode Value="Delphi"/>
+          <CStyleOperator Value="False"/>
         </SyntaxOptions>
       </Parsing>
-      <CodeGeneration>
-        <Generate Value="Faster"/>
-      </CodeGeneration>
       <Other>
         <CompilerPath Value="$(CompPath)"/>
       </Other>
     </CompilerOptions>
     <Files Count="6">
       <Item1>
-        <Filename Value="PythonEngine.pas"/>
+        <Filename Value="Sources\Core\PythonEngine.pas"/>
         <HasRegisterProc Value="True"/>
         <UnitName Value="PythonEngine"/>
       </Item1>
       <Item2>
-        <Filename Value="PythonGUIInputOutput.pas"/>
+        <Filename Value="Sources\Core\PythonGUIInputOutput.pas"/>
         <HasRegisterProc Value="True"/>
         <UnitName Value="PythonGUIInputOutput"/>
       </Item2>
       <Item3>
-        <Filename Value="PythonAction.pas"/>
+        <Filename Value="Sources\Core\PythonAction.pas"/>
         <HasRegisterProc Value="True"/>
         <UnitName Value="PythonAction"/>
       </Item3>
       <Item4>
-        <Filename Value="MethodCallBack.pas"/>
+        <Filename Value="Sources\Core\MethodCallBack.pas"/>
         <UnitName Value="MethodCallBack"/>
       </Item4>
       <Item5>
-        <Filename Value="VarPyth.pas"/>
+        <Filename Value="Sources\Core\VarPyth.pas"/>
         <UnitName Value="VarPyth"/>
       </Item5>
       <Item6>
-        <Filename Value="PythonD6Decs.pas"/>
+        <Filename Value="Sources\Core\PythonD6Decs.pas"/>
         <UnitName Value="PythonD6Decs"/>
       </Item6>
     </Files>


