Prueba con este código
Código Delphi
[-]
procedure TForm1.FormShow(Sender: TObject);
begin
ApdComPort1.Open := True;
AdTerminal1.Capture := cmAppend; AdTerminal1.Active := True;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
AdTerminal1.Active := False;
ApdComPort1.Open := False;
end;
El problema que le veo es que solo podrás abrirlo hasta que cierras la AdTerminal, ya que abre el archivo de forma no compartida.
Debes de asignar la propiedad Capture en cmAppend de otra forma cada vez que abras la AdTerminal te va a crear un nuevo archivo y esto lo debes hacer por código no en tiempo de diseño.
Salud OS.