diff --git a/DfmEngine.pas b/DfmEngine.pas
index 80532e0..544436c 100644
--- a/DfmEngine.pas
+++ b/DfmEngine.pas
@@ -67,8 +67,10 @@ const
 function BitTest(Value, Mask: integer): boolean;
 function GetWndText(wnd: HWND): string;
 function EnumChildrenProc(wnd: HWND; lp: LPARAM): BOOL; stdcall;
-procedure WriteBitmapData(dfm1: TDfmWriter; bmp: HBITMAP; BelongsToPicture: boolean; const Name: string);
-procedure WriteIconData(dfm1: TDfmWriter; icon: HICON; BelongsToPicture: boolean; const Name: string);
+procedure WriteBitmapData(dfm1: TDfmWriter; bmp: HBITMAP;
+  BelongsToPicture: boolean; const Name: string);
+procedure WriteIconData(dfm1: TDfmWriter; icon: HICON; BelongsToPicture: boolean;
+  const Name: string);
 
 implementation
 
@@ -300,7 +302,8 @@ procedure TDfmBuilder.HandleTreeView(wnd: HWND; style: integer);
 begin
 end;
 
-procedure WriteBitmapData(dfm1: TDfmWriter; bmp: HBITMAP; BelongsToPicture: boolean; const Name: string);
+procedure WriteBitmapData(dfm1: TDfmWriter; bmp: HBITMAP;
+  BelongsToPicture: boolean; const Name: string);
 var
   b: TBitmap;
   Memory: TTextWriter;
@@ -334,7 +337,8 @@ begin
   end;
 end;
 
-procedure WriteIconData(dfm1: TDfmWriter; icon: HICON; BelongsToPicture: boolean; const Name: string);
+procedure WriteIconData(dfm1: TDfmWriter; icon: HICON; BelongsToPicture: boolean;
+  const Name: string);
 var
   i: TIcon;
   k: TTextWriter;
diff --git a/frmMain.pas b/frmMain.pas
index cf7ec4a..3b4bee0 100644
--- a/frmMain.pas
+++ b/frmMain.pas
@@ -48,7 +48,8 @@ type
     procedure btnAboutClick(Sender: TObject);
     procedure SaveRCClick(Sender: TObject);
   private
-    procedure GenerateDfmFile(const filename, frmname: string; wnd: HWND; PasList: TStrings);
+    procedure GenerateDfmFile(const filename, frmname: string; wnd: HWND;
+      PasList: TStrings);
     procedure GeneratePasFile(const filename, frmname: string; PasList: TStrings);
     procedure GetWinInfo(wnd: HWND; ParentNode: TTreeNode);
     procedure EnableSavePas;
@@ -131,7 +132,8 @@ begin
         SendMessage(wnd, CB_GETLBTEXT, i - 1, longint(@itemtext));
         node2 := AddChild(node1, 'Item #' + IntToStr(i));
         AddChild(node2, 'Text = ' + itemtext);
-        AddChild(node2, 'Data = ' + IntToStr(SendMessage(wnd, CB_GETITEMDATA, i - 1, 0)));
+        AddChild(node2, 'Data = ' +
+          IntToStr(SendMessage(wnd, CB_GETITEMDATA, i - 1, 0)));
       end;
     end;
     if childlist.Count > 0 then
@@ -201,7 +203,8 @@ begin
 end;
 
 
-procedure TMainForm.GenerateDfmFile(const filename, frmName: string; wnd: HWND; PasList: TStrings);
+procedure TMainForm.GenerateDfmFile(const filename, frmName: string;
+  wnd: HWND; PasList: TStrings);
 var
   OutStream: TFileStream;
   b1: TDfmBuilder;