I'll answer in roughly 60-90 minutes if no one else does, but for the sake of giving you a complete answer once I have some time, will you need to remove items from the array too (that's a tad more complicated)?
EDIT: I was genuinely hoping that someone else would answer. This will be a pain to explain. Before answering, I'd like to say that it'd be appreciated by the community if you respected the forum rules, as in avoid double posting (whether it's two threads or two posts). This is needed to avoid littering the forum with unneeded material and, more importantly, to make the search engine more effective for people facing the same issue as you in the future. Now, to the real deal.
The first thing needed is to be able to enlarge the length of the array to allow you to add new information to it. This can be done with this command:
Simba Code:
SetArrayLength(OriginalArray, GetArrayLength(OriginalArray) + 1);
Now that this is done, you have some place to add information. Based on the complexity of what you want to add, you might decide to write a distinct procedure or leave it to one line. I'll assume that the information is complex and make a distinct procedure for it. You can shorten it for your needs after. Let's call the procedure LoadOriginalArray:
Simba Code:
procedure LoadOriginalArray(WhatOriginalArrayTP, WhatArrayOfUsefulStuffTP : integer); //Wouldn't it actually be a TPoint for you, not an integer?
begin
OriginalArray[WhatOriginalArrayTP] := ArrayOfUsefulStuff[WhatArrayOfUsefulStuffTP];
end;
Note: When it comes to integer, it isn't needed to make a distinct procedure as it is fairly simple and straightforward. However, it isn't that simple when you want to add information to a long record list.
And, finally, an actual use of the procedure:
Simba Code:
procedure EnlargeYourOriginalArray;
begin
SetArrayLength(OriginalArray, GetArrayLength(OriginalArray) + 1);
LoadOriginalArray(high(OriginalArray), high(ArrayOfUsefulStuff));
end;
Tadam!
If you'd like to know how to remove an item from your OriginalArray, feel free to post again. Also, if anything isn't clear, feel free to ask for more details.