1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint; 
  var Handled: Boolean); 
var 
  pos : tpoint; 
  x, y :integer; 
begin 

if ActiveControl <> nil then 
test    := ActiveControl; 
test_name:= test.Name; 
popupmenu1.Popup(mousepos.X+form1.left,mousepos.y+form1.top); 

end; 

procedure TForm1.Einfgen1Click(Sender: TObject); 
begin 

        form2.show; 

end; 

// Aus einer Listbox wird das Zeichen ausgewählt 
procedure TForm2.Button1Click(Sender: TObject); 
begin 
        form1.show; 
        hide; 
        try 
        for i:=0 to listbox1.Count-1 do 
        if listbox1.Selected[i] then 
        test.SetTextBuf(pchar(listbox1.Items[i])); 
        except 
        end; 
end;					

1:
2:
3:

if ActiveControl <> nil then 
test    := ActiveControl; 
test_name:= test.Name;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

if (ActiveControl <> nil) and (ActiveControl is tRichEdit) then
  Begin
    test := tRichEdit (ActiveControl); 
    test_name:= test.Name;
  End
Else
  Begin
    test := nil;
    test_name := '';
  End;