Небольшая проблема при работе с текстом (Delphi 7)

[beautifulboy]

Добрый вечер всем!
Недавно начал изучать язык программирования Delphi7.Очень увлекательная вещь. Опыта правда маловато но я учусь. Решил написать программу которая бы из текста формата
текст 1:текст 2
текст 3:текст 4
сортировала то что не подходит критериям в одну колонку а что подходит в другую.
В данном случае длина текст 2 после":" меньше 8 символов.
Теперь нужно реализовать чтоб если в текст 2 нету ни одной большой буквы и цифры в одну колонку а если есть в другую.

Выражаясь короче нужно сделать чтоб программа удаляла(или заносила в другую колонку) текст 2 если там меньше 8 символов, нет ни одной большой буквы и цифры.
Я потратил кучу времени но никак не могу сообразить. Как это можно реализовать???

procedure TForm1.btn1Click(Sender: TObject);
var i:string;
b:Boolean;
begin
 b:=False;
 b:=dlgOpen1.Execute;
if b then
mmo1.Lines.LoadFromFile(dlgOpen1.FileName);
edt1.Text:=dlgOpen1.FileName ;
end;

procedure TForm1.btn2Click(Sender: TObject);
var
p,i:Integer;
s:string;
begin
repeat
s:=mmo1.Lines[0];
p:=mmo1.Lines.Count;
i:= Pos(':',s);
if Length((s))-(i)<8 then
mmo3.Lines.Add(s);
if Length((s))-(i)>=8 then
mmo2.Lines.Add(s) ;
mmo1.Lines.Delete(0);
until (i=0);
end;
end.

PS. Не судите строго у меня опыта 2 дня. Я почти разгадал эту загадку но теперь он читает тока первый символ а не весь текст.

[evg_m]

i:=pos(':',s);
flagbig:=false;// изначально считаем что больших букв нет
flagdigit:=false;
for j:=i+1 {начинаем со следующей за :} to length(s) do 
begin
  if s[j] in ['А'..'Я'] {множество больших русских букв} then flagbig:=true; // отмечаем тот факт что попалась большая буква
  if s[j] in ['0'..'9'] {множество цифр} then flagdigit:=true;
//при желании множества можно объединить
  if s[j] in ['A'..'Z', 'A'..'Я', '0'..'9'] {англ, русские большие и цифры в одном флаконе} then ...
end;

if flagdigit or flagbig then // проверяем наличие flagbig=true/отсутсвие flagbig=false больших и добавляем в нужный мемо
  mmo2.add(s) 
else 
  mmo3.add(s);

[beautifulboy]

Большое спасибо evg_m за чёткое и понятное объяснение. Даже моего уровня знаний хватило чтобы разобраться.