clean the code

Author: Al-Muhandis

bot_ex/tgbot.pas

@@ -709,27 +709,6 @@ procedure TTelegramBot.TlgrmFeedback(ASender: TObject; const ACommand: String;
   end;
 end;
 
-//procedure TTelegramBot.TlgrmRate(ASender: TObject; const ACommand: String;
-//  AMessage: TTelegramMessageObj);
-//var
-//  ReplyMarkup: TReplyMarkup;
-//  ATxt: String;
-//begin
-//  ReplyMarkup:=TReplyMarkup.Create;
-//  try
-//    { You must assign BotUsername before Create inline KeyboardRate for forming rate url for your bot
-//      except if FUsername already assinged (getMe or callbackquery before is called, for example) }
-//    ReplyMarkup.InlineKeyBoard:=CreateInlineKeyboardRate;
-//    RequestWhenAnswer:=True;
-//    ATxt:=str_RateText;
-//    if Assigned(FOnRate) then
-//      FOnRate(ATxt, ReplyMarkup);
-//    sendMessage(ATxt, pmMarkdown, True, ReplyMarkup);
-//  finally
-//    ReplyMarkup.Free;
-//  end;
-//end;
-
 procedure TTelegramBot.TlgrmStatHandler(ASender: TObject;
   const ACommand: String; AMessage: TTelegramMessageObj);
 var

examples/DesignTime/mainform.lfm

@@ -7,7 +7,7 @@ object Form1: TForm1
   ClientHeight = 552
   ClientWidth = 415
   DesignTimePPI = 120
-  LCLVersion = '3.6.0.0'
+  LCLVersion = '3.8.0.0'
   object GroupBox1: TGroupBox
     Left = 16
     Height = 184

fptgbot_ex.lpk

@@ -38,7 +38,7 @@
       </Item>
     </RequiredPkgs>
     <UsageOptions>
-      <UnitPath Value="$(PkgOutDir)"/>
+      <UnitPath Value="$(PkgOutDir);$(PkgOutDir)\bot_ex"/>
     </UsageOptions>
     <PublishOptions>
       <Version Value="2"/>