Developing.ru

Ввести в Memo некоторое количество чисел
Создать динамический массив из чисел
Memo,распологающих до первого числа со значением -123.
Найти с помощью функции минимал элемент массива
Вообщем всё впринципе работает только не все числа выводит
например я ввожу несколько чисел допустим 13 17 23 25 -123 29 31 33 37
Выводит 23 25 а заместь 13 и 17 кашу какую то типо 1,74093958091401E-39
Вот код

{ int N=Memo1->Lines->Count;
Memo2->Clear();
int i,k=0;float max;
float a[125]; max=-1000;
for (i=0;i<N;i++)
{ a=StrToFloat(Memo1->Lines->Strings);k++;
if (a==-123)break;
for(i=0;i<k;i++);
{ if(a>max)max=a;
Memo2->Lines->Add(FloatToStr(a));}
Edit1->Text=FloatToStr(max);}

Что здесь еще нужно добавить?
подскажите пожалуйста