компонент memo

[nexzis]

надо ввести в edit одномерный массив и вывести в memo
что не так не пойму...


код

procedure TForm1.Button1Click(Sender: TObject);
var s:array of integer;
i,n:integer;

begin
n:=strtoint(edit1.text);
setlength(s,n);
for i:=0 to n-1 do
s[i]:=strtoint(memo1.lines[i]);
memo1.lines.clear;
for i:=0 to n-1 do
//Memo1.Lines.Add(inttostr(s[i]));

end;
end.

help

ввожу число в едит, нажимаю кнопку, вылетает: ---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EConvertError with message ''Memo1' is not a valid integer value'. Process stopped. Use Step or Run to continue.

[p51x]

s[i]:=strtoint(memo1.lines[i]);

Падает тут, потому что там не число. Лови исключительные ситуации или сначала делайте анализ.