Ставишь фокус в чат и отправляешь со стороны программы нажатия клавиш - симуляция нажатия.
Clipbrd.AsText := 'Hello';
keybd_event(Ord('H'), 0, KEYEVENTF_KEYDOWN, 0);
keybd_event(Ord('H'), 0, KEYEVENTF_KEYUP, 0);
keybd_event(Ord('e'), 0, KEYEVENTF_KEYDOWN, 0);
keybd_event(Ord('e'), 0, KEYEVENTF_KEYUP, 0);
keybd_event(Ord('l'), 0, KEYEVENTF_KEYDOWN, 0);
keybd_event(Ord('l'), 0, KEYEVENTF_KEYUP, 0);
keybd_event(Ord('l'), 0, KEYEVENTF_KEYDOWN, 0);
keybd_event(Ord('l'), 0, KEYEVENTF_KEYUP, 0);
keybd_event(Ord('o'), 0, KEYEVENTF_KEYDOWN, 0);
keybd_event(Ord('o'), 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_RETURN, 0, KEYEVENTF_KEYDOWN, 0);
keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0);
Будет написано слово "Hello" и отправлено симуляцией нажатия Enter
Либо, помещаешь текст в буфер обмена, симулируешь нажатие Ctrl + V и Enter
keybd_event(VK_CTRL, 0, KEYEVENTF_KEYDOWN, 0);
keybd_event(Ord('V'), 0, KEYEVENTF_KEYDOWN, 0);
keybd_event(Ord('V'), 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_CTRL, 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_RETURN, 0, KEYEVENTF_KEYDOWN, 0);
keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0);