C++ Builder XE. "Range check error" при выполнении программы.

[Zinigan]

Здравствуйте, не могу понять, в чем ошибка. Цель в том, чтобы из всех строк Memo1 выбрать строки с двузначными числами и записать эти строки в Memo2.

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

AnsiString fname="";
char buf[256];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
boolean Num(char x)
{
boolean r=false;
for (char i ='0'; i <= '9'; i++) {
  if (x==i) r=true;
}
return r;
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Open1Click(TObject *Sender)
{
Memo1->Clear();
Memo2->Clear();
if (OpenDialog1->Execute()) {
fname=OpenDialog1->FileName;
Memo1->Lines->LoadFromFile(fname);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString st;
int i,k;
Memo2->Clear();

for (i=0;i<=Memo1->Lines->Count;i++)
{
st=Memo1->Lines->Strings[i];
int l=st.Length();
for (int k=1;k<=l;k++){
if (Num(st[k]) && Num(st[k+1])&& !Num(st[k+2])) //Ошибка где-то тут и если убрать это условие то все норм
{
Memo2->Lines->Add(st);
k=l;
}
}
}
}

Компилятор ошибок не выдает, но во время выполнения программа выдает:

[p51x]

У вас нет строки

Memo1->Lines->Count

а тем более

st[k]

и далее, при

k<=l