Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

01.01.2007
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;

Взято из https://forum.sources.ru