Как программно установить конфигурацию COM-порта в Windows?

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

CommPort : string;

hCommFile : THandle;

Buffer : PCommConfig;

size : DWORD;

begin

CommPort := 'COM1';

{Открываем Com-порт}

hCommFile := CreateFile(PChar(CommPort),

                         GENERIC_WRITE,

                         0,

                         nil,

                         OPEN_EXISTING,

                         FILE_ATTRIBUTE_NORMAL,

                         0);

if hCommFile=INVALID_HANDLE_VALUE then

begin

   ShowMessage('Unable to open '+ CommPort);

   exit;

end;

{Выделяем временный буфер}

GetMem(Buffer, sizeof(TCommConfig));

{Получаем размер структуры CommConfig}

size := 0;

GetCommConfig(hCommFile, Buffer^, size);

{Освобождаем временный буфер}

FreeMem(Buffer, sizeof(TCommConfig));

{Выделяем память для структуры CommConfig}

GetMem(Buffer, size);

GetCommConfig(hCommFile, Buffer^, size);

{Изменяем скорость передачи}

Buffer^.dcb.BaudRate := 1200;

{Устанавливаем новую конфигурацию для COM-порта}

SetCommConfig(hCommFile, Buffer^, size);

{Освобождаем буфер}

FreeMem(Buffer, size);

{Закрываем COM-порт}

CloseHandle(hCommFile);

end;