Just send message with inlinekeyboard

unit1.pas

unit Unit1;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, tgsendertypes
  ;

implementation

procedure JustSend(const aToken, aMsg: String; ChatID: Int64);
var
  Bot: TTelegramSender;
  ReplyMarkup: TReplyMarkup;
  InlineKeyboard: TInlineKeyboard;
begin
  Bot:=TTelegramSender.Create(aToken);
  ReplyMarkup:=TReplyMarkup.Create;
  try
    InlineKeyboard:=ReplyMarkup.CreateInlineKeyBoard;
    InlineKeyboard.AddButton('Кнопка 1', 'data 1');
    Bot.sendMessage(ChatID, aMsg, pmDefault, False, ReplyMarkup);
  finally
    ReplyMarkup.Free;
    Bot.Free;
  end;
end;

end.