共通データはフォームとは別のユニットに切り離すのが定石
uses YaData;
interface
PresentTP: String;
TAD, AAD: array[1..100] of Integer;
implementation
end.
ってユニット作ってから両フォームからuses YaDataする