Comunicação com a porta COM3

    ...
    
    hCommFile: THandle;
    Status: LongBool;
    NumberWritten: DWORD;
    Buf : array[0..1023] of Byte;
    s :string;
    
    .......
    
    //Abre a porta de comunicação
    s:='COM3';
    hCommFile := CreateFile (
    					 PChar(s),
    					 GENERIC_READ or GENERIC_WRITE,
    					 0, // não compartilhado
    					 nil, // sem segurança
    					 OPEN_EXISTING,
    					 FILE_ATTRIBUTE_NORMAL,
    					 0);
    
    // Verifica a abertura da porta
    if hCommFile <> INVALID_HANDLE_VALUE then
    begin
    
    //Envia a String de Comando
    NumberWritten:=0;
    Status:= WriteFile(
    					hCommFile,
    					PChar(s)[0],
    					Length(s),
    					NumberWritten,
    					nil);
    
    ...

    if FileRead(hCommFile, Buf[0], 1023) = 1 then
    begin
       ShowMessage('a');
    end;
    
    ....