procedure TFormMain.FormCreate(Sender: TObject);
begin
  FCensorWords.LoadFromFile('censor.txt', TEncoding.UTF8);
  VK.Login;
  VkGroupEvents.Start;
end;

procedure TFormMain.VKAuth(Sender: TObject; var Token: string);
begin
  {$INCLUDE token.inc}
end;

function TFormMain.CheckForCensor(Value: string): Boolean;
begin
  for var i := 0 to FCensorWords.Count - 1 do
    if Value.Contains(FCensorWords[i]) then Exit(True);
end;

procedure TFormMain.VkGroupEventsMessageNew(Sender: TObject; GroupId: Integer; Message: TVkMessage);
begin
  if (not Message.Text.IsEmpty) and CheckForCensor(Message.Text) then
    VK.Messages.Send(Message.PeerId, 'Давай без мата, ок?');
end;