var 
  str1, str2, str3: string;
  P: Integer;
begin
      str1 := 'email-login@mail.ru'; // Наш пример email адреса
      str2 := '@'; // До этого символа мы будем потом вырезать логин
      P := Pos(str2, str1) - 1; // Узнали длину строки от начала до символа '@'. В нашем примере это будет 11
      str3 := Copy(str1, 0, P); // Теперь в переменной str3 хранится наш логин без '@mail.ru'
      print(str3); // Выводим результат
end.

var InpStr, TxtOut :string; //объявление строковых переменных
var TxtPoint :integer; //объявление Числа
Begin

while true do begin //начало цикла
  InpStr:=engine.dlgtext; //закидываем текст окна в строковую переменную
  TxtPoint:=Pos('L>999', InpStr); //находим позицию необходимого для отправки куска
  TxtOut:=('00 '+Copy(InpStr, TxtPoint+2, 5)); //формируем строку ответа
  if copy(TxtOut, 4, 1)='9' then
    begin
    Engine.BypassToServer(TxtOut); //отправка результата
    end else print('no antibot now'); // необязательный вывод в лог
Delay(15000); //задержка
end;
end.