ExNotUseThreads converted to Lazarus

ExNotUseThreads/NotUseThreadsUnit.pas

@@ -1,10 +1,15 @@
+{$IFDEF FPC}{$CODEPAGE UTF8}{$H+}{$MODE DELPHI}{$ENDIF}
 unit NotUseThreadsUnit;
 
 interface
 
 uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, SplashFormUnit;
+  {$IFnDEF FPC}
+    Windows, Messages, 
+  {$ELSE}
+    LCLIntf, LCLType, LMessages, 
+  {$ENDIF}
+    SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, SplashFormUnit;
 
 type
   TForm1 = class(TForm)
@@ -25,16 +30,20 @@ var
 
 implementation
 
-{$R *.dfm}
+{$IFnDEF FPC}
+  {$R *.dfm}
+{$ELSE}
+  {$R *.lfm}
+{$ENDIF}
 
 procedure TForm1.btnRun1Click(Sender: TObject);
 begin
-  btnRun1.Caption := 'Æäèòå...';
+  btnRun1.Caption := 'Ждите...';
   Screen.Cursor := crSQLWait;
   try
     Sleep(10000);
   finally
-    btnRun1.Caption := 'Âûïîëíèòü';
+    btnRun1.Caption := 'Выполнить';
     Screen.Cursor := crDefault;
   end;
 end;