[Drozh]

Код:

function StrToMas(const Source: String; var Buf: array of Integer): Boolean;
var
 i, iPos: Integer;
 Dest: String;
begin
 Result := False;

 Dest := Trim(Source) + ' ';
 iPos := Pos(' ', Dest);
 i := Low(Buf);

  while iPos <> 0 do
  begin
    if not TryStrToInt(Trim(Copy(Dest, 1, iPos-1)), Buf[i]) then
     Exit;

   Delete(Dest, 1, iPos);
   iPos := Pos(' ', Dest);
   Inc(i);
  end;

 Result := True;
end;