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;