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;