Код:
getmailsn := 1;
SetLength(getmails, numend - numbegin);
for numst := numbegin to numend do
...................
Локальные строковые переменные надо явно инициализировать перед использованием! И нумерация символов в строке начинается с 1. И не проще ли сделать так
Код:
getmails := getmails + st[numst];
Тогда не надо будет вызывать SetLength(getmails, numend - numbegin).