Первые пять символов из Memo1:
Код:
S := Copy(Memo1.Text, 1, 5)
Вторые пять символов:
Код:
S := Copy(Memo1.Text, 6, 5)
Сравнить строки можно просто оператором "равно" (=).
Сравнить сроки без учета регистра - функция
AnsiCompareText.
С учетом регистра -
AnsiCompareStr.