[zip000]

Код:

getmailsn := 1;
SetLength(getmails, numend - numbegin);
for numst := numbegin to numend do
...................

Локальные строковые переменные надо явно инициализировать перед использованием! И нумерация символов в строке начинается с 1. И не проще ли сделать так

Код:

getmails := getmails + st[numst];

Тогда не надо будет вызывать SetLength(getmails, numend - numbegin).