[[egostar]]

Intenta usando el evento OnShow en lugar del evento OnCreate.

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
begin
 if not ComPort.Connected then
  ComPort.Open;
 comport.WriteStr(#2#0);    
end;

Salud OS