Помогите с Delphi! Умоляю!

не пытаясь вспомнить дельфю и её встроенные и библиотечные функции:

в первом
pos('@',prebase[a]) -два аргумента
во втором
pos(prebase[a],'@',delete,-1); -четыре аргумента.

как минимум сходу встаёт вопрос об аккуратности отслеживания скобок и запятых
( а учитывая "copy(pre base[a]" ещё и пробелов)

-----
добавка
"Эти коды в программе ошибок не выдают, выдают только при компиляций" примерно равно "этий кипичь не падить на нога, толька на ступня"
Это может указывать на ошибку не столько в коде столько в ДНК

Каким образом вы обрабатывете базу (в гриде, в мемо )?

Pos() работает так:
Pos('что ищем','где ищем') возвращает позицию вхождения.

Например: a: Byte;
a := Pos('?','abcd?2/d'); вернет позицию первого вхождения символа "?" в строке "abcd?2/d", т. е. 5. Потому что ? -пятый символ в строке.

Copy() работает так:
Copy('строка',номер начального символа, количество символов) и возвращает строку.
t: ShortString;
t := Copy('abcdefgh',2,3);
в t будет содержаться 'bcd', т. е. 3 символа, начиная со второго, в строке 'abcdefgh'.

В твоей задаче - удалить все, что после @ делай так:

memo2 := Copy(prebase[a],1,Pos('@',prebase[a])-1);
Или, если используешь memo как элемент формы, лучше пиши memo2.text;

В твоем случае ошибки могут быть если prebase[a] не содержат строки. Это массив строк у тебя? a - это индекс массива? Проверь сперва через watch или showmessage;
Т. е. добавь инструкцию ShowMessage(prebase[a]); и если всё ок, то увидишь свою строку. Я так понимаю - база е-майлов?

Задайте этот вопрос на форумах программистов, может быстрее найдете ответ