[M.A.D.M.A.N.]

тебе надо бежать по пробелам и копировать значения между ними

Код:

function FillArrayFromString(Text:String;Buff:array of Integer):Boolean;
var _pos:Word;
    _text:String;
    index:word;
    BuffPos:Integer;
begin
  Result:=False;
  _text:=text;
  BuffPos:=0;
  If _Text[Length(_Text)]<>' ' Then _Text:=_Text+' ';
  For Index:=0 To Length(_text) Do
    Begin
      If _text[Index]<>' ' Then Continue;
      Try
        Buff[BuffPos]:=StrToInt(Copy(_text,1,Index));
        Delete(_text,1,index);
      Exscept
        Result:=False;
        Exit;
      End;
      Inc(BuffPos);
    End;
end;