[lmikle]

Код:

type
  TVector = record
    X, Y : Integer;
  end;

var
  A : Array Of TVector;

procedure TForm1.PackTextToArray;
var
  I : Integer;
begin
  SetLength(A,0);
  For I := 0 To Memo1.Lines.Count-1 Do
    If Trim(Memo1.Lines[i]) <> '' Then
      Begin
         SetLength(A,Length(A)+1);
         S := Trim(Memo1.Lines[i]);
         A[High(A)].X := StrToInt(Copy(S,1,Pos(' ',S)));
         A[High(A)].Y := StrToInt(Copy(S,Pos(' ',S),Length(S)));
      End;