wie erfahre ich in der Form1 welches Editierfeld gekickt ist

[binio]

Hab nun

Delphi-Quellcode:

procedure TForm1.einfuegemodus(Sender: TObject; var Key: Char);
begin
{if Sender is TEdit then
  ShowMessage(TEdit(Sender).Name);@WORK}

var Zeile     : string;
    CursorPos : integer;
begin
  if schreibmodus.Checked then begin
    if Key<#32 then
      Key:=#0
    else begin
      {Aktuelle Einfügeposition merken}
      CursorPos:=TEdit(Sender).Name.SelStart;
      {Memotext in einer string-Variablen zwischenspeichern}
      Zeile:=TEdit(Sender).Name.Text;
      {Falls sich an der aktuellen Cursorposition ein
       Windows-Zeilenumbruch befindet, müssen zwei
       Zeichen (#13=CR und #10=LF) gelöscht werden:}
      if (Zeile[CursorPos+1]=#13) and (Zeile[CursorPos+2]=#10) then
        delete(Zeile,CursorPos+1,1);
      {Das Zeichen an der Einfügeposition löschen}
      delete(Zeile,CursorPos+1,1);
      {Memotext aus der string-Variablen zurückladen}
      TEdit(Sender).Name.Text:=Zeile;
      TEdit(Sender).Name.SelStart:=CursorPos;
    end;
  end;
end;

geht aber nicht er mekert bei CursorPos:=TEdit(Sender).Name.SelStart;...