diff --git a/components/richmemo/samples/inline/mainform.lfm b/components/richmemo/samples/inline/mainform.lfm
index 586d993ce..d5bb26360 100644
--- a/components/richmemo/samples/inline/mainform.lfm
+++ b/components/richmemo/samples/inline/mainform.lfm
@@ -8,7 +8,7 @@ object Form1: TForm1
   ClientWidth = 615
   OnCreate = FormCreate
   OnDestroy = FormDestroy
-  LCLVersion = '1.2.4.0'
+  LCLVersion = '1.3'
   object Button1: TButton
     Left = 532
     Height = 25
@@ -27,9 +27,9 @@ object Form1: TForm1
     Anchors = [akTop, akLeft, akRight, akBottom]
     HideSelection = False
     Lines.Strings = (
-      'Every hunter wants to know where Cheetah hides'
+      'Every hunter wants to know where cheetah hides'
     )
-    Rtf = '{\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1033{\fonttbl{\f0\fnil\fcharset0 Segoe UI;}{\f1\fnil Segoe UI;}}'#13#10'{\colortbl ;\red0\green128\blue0;\red0\green0\blue255;\red0\green0\blue0;}'#13#10'{\*\generator Riched20 6.3.9600}\viewkind4\uc1 '#13#10'\pard\cf1\b\f0\fs18 Every \cf2 hunter \cf3 wants to know where Cheetah hides\cf0\b0\f1\par'#13#10'\par'#13#10'}'#13#10#0
+    Rtf = '{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Segoe UI;}{\f1\fnil Segoe UI;}}'#13#10'{\colortbl ;\red0\green128\blue0;\red0\green0\blue255;\red0\green0\blue0;}'#13#10'{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\cf1\b\f0\fs18 Every \cf2 hunter \cf3\b0 wants to know where \b cheetah \b0 hides\par'#13#10'\cf0\f1\par'#13#10'}'#13#10#0
     ScrollBars = ssAutoBoth
     TabOrder = 0
     ZoomFactor = 1
diff --git a/components/richmemo/samples/inline/mainform.pas b/components/richmemo/samples/inline/mainform.pas
index 31db90b70..dedb575ca 100644
--- a/components/richmemo/samples/inline/mainform.pas
+++ b/components/richmemo/samples/inline/mainform.pas
@@ -11,6 +11,9 @@ unit mainform;
  *  You're free to copy and modify the file. No need to keep the refernce    *
  *  to the origin of the file.                                               *
  *                                                                           *
+ *  Cheetah logo image has been aquired from freepascal site.                *
+ *  http://www.freepascal.org/pic/logo.gif                                   *
+ *                                                                           *
  *****************************************************************************
 }
 
@@ -116,13 +119,14 @@ end;
 procedure TForm1.Button3Click(Sender: TObject);
 var
   inlineimg : TInlineImage;
-  i : integer;
+const
+  ScreenToDocDPI = 72 / 96;
 begin
   inlineimg := TInlineImage.Create;
   inlineimg.imageList:=ImageList1;
   inlineimg.startTime:=GetTickCount;
   anims.add(inlineimg);
-  RichMemo1.InDelInline(inlineimg, RichMemo1.SelStart, 0, Size(round(ImageList1.Width*72/96),round(ImageList1.Height*72/96)));
+  RichMemo1.InDelInline(inlineimg, RichMemo1.SelStart, 0, Size(round(ImageList1.Width*ScreenToDocDPI),round(ImageList1.Height*ScreenToDocDPI)));
 end;
 
 procedure TForm1.FormCreate(Sender: TObject);
diff --git a/components/richmemo/samples/inline/testinline.lpi b/components/richmemo/samples/inline/testinline.lpi
index 2700d9c97..df692807c 100644
--- a/components/richmemo/samples/inline/testinline.lpi
+++ b/components/richmemo/samples/inline/testinline.lpi
@@ -40,7 +40,6 @@
       <Unit0>
         <Filename Value="testinline.lpr"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="testinline"/>
       </Unit0>
       <Unit1>
         <Filename Value="mainform.pas"/>
@@ -69,12 +68,6 @@
         </Win32>
       </Options>
     </Linking>
-    <Other>
-      <CompilerMessages>
-        <MsgFileName Value=""/>
-      </CompilerMessages>
-      <CompilerPath Value="$(CompPath)"/>
-    </Other>
   </CompilerOptions>
   <Debugging>
     <Exceptions Count="3">