function StartCom(mn:integer):integer; export;stdcall;
begin
if Comm321=nil then
begin
if Comm321=nil then begin
Comm321:=TCommPortDriver.create(nil);
end;
comm321.connect;
if (mn=1) and (comm321.connect=true )then
begin
comm321.Connect;
StartCom:=1 end
else
StartCom:=0;
end;
обьект вроде иннициализирован , врде все доолжно работать,
свойства я проставил(ну толке не показал). Че деалть
відает в процессе отладки что не передаеться значение в візіваемую функцию