Delphi Prob

[Artemis_Simetra]

So?

procedure TForm1.ButConfigComClick(Sender: TObject);
var
DCB: TDCB;

begin
GetCommState(Port,DCB);
DCB.BaudRate := 2400;
DCB.ByteSize := 8;
DCB.StopBits := ONESTOPBIT;
DCB.Parity := NOPARITY;
SetCommState(Port,DCB);
end;

vg malte