unit TestUnit1; uses 'TestUnit 2'; function main: string; begin Result := TestUnit2Func; end; end.