Явно ще използваме компонент само за конекция и инициализирането на настройките и нищо повече. Всичко останало ще се извършва от функциите:

WriteFile и ReadFile.
________________


var NumberWritten:dword;
CommPort:string;
hCommFile:THandle;
Commands:Array[1..255] of Byte;

begin
1...zadawane na nastroiki na porta
2...zadawane na time outs
3...open comport -> CreateFile

Commands[0] := $01;
Commands[1] := $02;
// it.n.
CommPort := 'COM1';
hCommFile := CreateFile(PChar(CommPort),
GENERIC_WRITE,
0,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);

4...Primer za izprashtane na komanda -> WriteFile


WriteFile(hCommFile,
PChar(@Commands)^,
Length(@Commands),
NumberWritten,
nil)


end;


//abe nesto takova shte da e :)
// veche pone blizo li sam?