Как записать каждое число в отдельности в переменную

[Xcopy]

Спасибо всем! Всем +

[raxp]

вот еще хороший способ...

var t: tstringlist;
begin
 t:= tstringlist.Create;
 t.Delimiter:= ' ';
 t.DelimitedText:= memo1.Lines[0];
 caption:= t[2]; // t[0] // t[1]
 t.Free;

смысл думаю ясен.

[Xcopy]

вот еще хороший способ...
Код:

var t: tstringlist;
begin
t:= tstringlist.Create;
t.Delimiter:= ' ';
t.DelimitedText:= memo1.Lines[0];
caption:= t[2]; // t[0] // t[1]
t.Free;

смысл думаю ясен.

Я до такого не дорос)))