rendered paste body 1.
procedure SafeInitForm;
2.
var
3.
V: TVariantArray;
4.
begin
5.
SetArrayLength(V, 0);
6.
ThreadSafeCall('InitForm', V);
7.
end;
8.
9.
procedure ShowForm;
10.
begin
11.
frmDesign.Show;
12.
end;
13.
14.
procedure SafeShowInitFormModal;
15.
var
16.
V: TVariantArray;
17.
begin
18.
SetArrayLength(V, 0);
19.
ThreadSafeCall('ShowForm', V);
20.
end;
21.
22.
procedure MainInitForm;
23.
begin
24.
try
25.
SafeInitForm;
26.
SafeShowInitFormModal;
27.
finally
28.
FreeForm(frmDesign);
29.
except
30.
WriteLn('Error in InitForm!');
31.
end;
32.
end;