uses
Classes, SysUtils;

var
myChars: TStringList;

procedure allDlgOpen;
var
remoteControl: TL2Control;
i: integer;
begin
for i:=0 to myChars.Count-1 do
begin
remoteControl := GetControl(myChars[i]);
if Assigned(remoteControl) then
begin
remoteControl.DlgOpen; //открыли диалог окном
end;
end;

Engine.DlgOpen; // открыли диалог мейном
end;

procedure allDlgSel(index: integer);
var
remoteControl: TL2Control;
i: integer;
begin
for i:=0 to myChars.Count-1 do
begin
remoteControl := GetControl(myChars[i]);
if Assigned(remoteControl) then
begin
remoteControl.DlgSel(index); //открыли диалог окном
end;
end;
Engine.DlgSel(index); // выбрали строку мейном
end;

begin
myChars := TStringList.Create;
myChars.add('Char1');
myChars.add('Char2');

allDlgOpen;
allDlgSel(1);
allDlgSel(2);
end.