diff --git a/backup/main.lfm b/backup/main.lfm
index e3e614f..caa85b5 100644
--- a/backup/main.lfm
+++ b/backup/main.lfm
@@ -6022,6 +6022,13 @@ object GUIForm: TGUIForm
           OnClick = miINPMMOffClick
         end
       end
+      object N12: TMenuItem
+        Caption = '-'
+      end
+      object miPasteText: TMenuItem
+        Caption = 'Paste'
+        OnClick = miPasteTextClick
+      end
     end
     object miAudio: TMenuItem
       Caption = 'Audio'
diff --git a/backup/main.pas b/backup/main.pas
index 0ba5488..162aed7 100644
--- a/backup/main.pas
+++ b/backup/main.pas
@@ -7,6 +7,7 @@ interface
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus, ComCtrls,
   ExtCtrls, StdCtrls, fphttpclient, LCLType, Buttons, AsyncProcess, DateUtils,
+  Clipbrd,
 {$IFDEF WINDOWS}
   Windows,
 {$ENDIF}
@@ -21,6 +22,8 @@ type
   { TGUIForm }
 
   TGUIForm = class(TForm)
+    miPasteText: TMenuItem;
+    N12: TMenuItem;
     N11: TMenuItem;
     miDisableFocusStealing: TMenuItem;
     miDisk2WPToggle: TMenuItem;
@@ -405,6 +408,7 @@ type
     procedure miMonoVoxelsClick(Sender: TObject);
     procedure miMVOL000Click(Sender: TObject);
     procedure miOpenFreezeClick(Sender: TObject);
+    procedure miPasteTextClick(Sender: TObject);
     procedure miPDFTO5sClick(Sender: TObject);
     procedure miPRFIIeClick(Sender: TObject);
     procedure miPRFIIeEnhancedClick(Sender: TObject);
@@ -1200,6 +1204,13 @@ begin
   ShowM8;
 end;
 
+procedure TGUIForm.miPasteTextClick(Sender: TObject);
+var
+  s: string;
+begin
+  s := ClipBoard.AsText;
+end;
+
 procedure TGUIForm.miPDFTO5sClick(Sender: TObject);
 begin
   UpdateConfig( 'hardware/init.printer.timeout', TMenuItem(sender).Caption, true );
@@ -1432,7 +1443,7 @@ const
 begin
      // SimpleGet(baseUrl + '/api/control/input/meta/key/i/value/'+TMenuItem(Sender).Caption);
       UpdateConfig( 'video/init.video.scanline',  values[StrToInt(TMenuItem(Sender).Caption)], true );
-      UpdateConfig( 'video/init.video.scanlinedisable', '0', false )
+      UpdateConfig( 'video/init.video.scanlinedisable', '0', false );
 end;
 
 procedure TGUIForm.miSNDMasterClick(Sender: TObject);
diff --git a/lib/x86_64-win64/main.lfm b/lib/x86_64-win64/main.lfm
index e3e614f..caa85b5 100644
--- a/lib/x86_64-win64/main.lfm
+++ b/lib/x86_64-win64/main.lfm
@@ -6022,6 +6022,13 @@ object GUIForm: TGUIForm
           OnClick = miINPMMOffClick
         end
       end
+      object N12: TMenuItem
+        Caption = '-'
+      end
+      object miPasteText: TMenuItem
+        Caption = 'Paste'
+        OnClick = miPasteTextClick
+      end
     end
     object miAudio: TMenuItem
       Caption = 'Audio'
diff --git a/lib/x86_64-win64/main.o b/lib/x86_64-win64/main.o
index 09ee525..4c88878 100644
Binary files a/lib/x86_64-win64/main.o and b/lib/x86_64-win64/main.o differ
diff --git a/lib/x86_64-win64/main.ppu b/lib/x86_64-win64/main.ppu
index fe541ef..c9d9e88 100644
Binary files a/lib/x86_64-win64/main.ppu and b/lib/x86_64-win64/main.ppu differ
diff --git a/lib/x86_64-win64/poc.obj b/lib/x86_64-win64/poc.obj
index fefaa58..c0920b8 100644
Binary files a/lib/x86_64-win64/poc.obj and b/lib/x86_64-win64/poc.obj differ
diff --git a/main.lfm b/main.lfm
index e3e614f..caa85b5 100644
--- a/main.lfm
+++ b/main.lfm
@@ -6022,6 +6022,13 @@ object GUIForm: TGUIForm
           OnClick = miINPMMOffClick
         end
       end
+      object N12: TMenuItem
+        Caption = '-'
+      end
+      object miPasteText: TMenuItem
+        Caption = 'Paste'
+        OnClick = miPasteTextClick
+      end
     end
     object miAudio: TMenuItem
       Caption = 'Audio'
diff --git a/main.pas b/main.pas
index cfbc65e..d8726bb 100644
--- a/main.pas
+++ b/main.pas
@@ -7,6 +7,7 @@ interface
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus, ComCtrls,
   ExtCtrls, StdCtrls, fphttpclient, LCLType, Buttons, AsyncProcess, DateUtils,
+  Clipbrd,
 {$IFDEF WINDOWS}
   Windows,
 {$ENDIF}
@@ -21,6 +22,8 @@ type
   { TGUIForm }
 
   TGUIForm = class(TForm)
+    miPasteText: TMenuItem;
+    N12: TMenuItem;
     N11: TMenuItem;
     miDisableFocusStealing: TMenuItem;
     miDisk2WPToggle: TMenuItem;
@@ -405,6 +408,7 @@ type
     procedure miMonoVoxelsClick(Sender: TObject);
     procedure miMVOL000Click(Sender: TObject);
     procedure miOpenFreezeClick(Sender: TObject);
+    procedure miPasteTextClick(Sender: TObject);
     procedure miPDFTO5sClick(Sender: TObject);
     procedure miPRFIIeClick(Sender: TObject);
     procedure miPRFIIeEnhancedClick(Sender: TObject);
@@ -1200,6 +1204,18 @@ begin
   ShowM8;
 end;
 
+procedure TGUIForm.miPasteTextClick(Sender: TObject);
+var
+  s: string;
+  Respo: TStringStream;
+begin
+  s := ClipBoard.AsText;
+  if length(s) > 0 then
+  begin
+       SimpleFormPost(baseUrl+'/api/control/paste', s, Respo);
+  end;
+end;
+
 procedure TGUIForm.miPDFTO5sClick(Sender: TObject);
 begin
   UpdateConfig( 'hardware/init.printer.timeout', TMenuItem(sender).Caption, true );