Прошу помочь по события Delphi 7

[Alexandr17]

Как написать событие OnConsoleEnter(Index:Integer; strCommand:String); которое будет возникать при добавлении в Memo строку и возвращать индекс добавленной строки. И добавленный текст.

[Stilet]

Т.е. ты вводишь что-то в Мемо, жмешь Энтер и нужно обработать это введенное?
Допустим так:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type
  TOnConsoleEnter=procedure (Index:Integer; strCommand:String) of object;
  { TForm1 }

  { TMemo }

  TMemo=class(TMemo)
   procedure Memo1KeyPress(Sender: TObject; var Key: char);
  private
    FOnConsoleEnter: TOnConsoleEnter;
    procedure SetOnConsoleEnter(AValue: TOnConsoleEnter);
   public
    property OnConsoleEnter:TOnConsoleEnter read FOnConsoleEnter write SetOnConsoleEnter;
  end;

  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
   private
    procedure  OnConsoleEnter (Index:Integer; strCommand:String);
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
 Memo1.OnConsoleEnter:=@OnConsoleEnter;
end;

procedure TForm1.OnConsoleEnter(Index: Integer; strCommand: String);
begin
  //
end;

{ TMemo }

procedure TMemo.Memo1KeyPress(Sender: TObject; var Key: char);
begin
 if key=#13 then begin
   if Assigned(FOnConsoleEnter) then
    FOnConsoleEnter(CaretPos.y,Lines[CaretPos.y]);
 end;
end;

procedure TMemo.SetOnConsoleEnter(AValue: TOnConsoleEnter);
begin
  if FOnConsoleEnter=AValue then Exit;
  FOnConsoleEnter:=AValue;
end;

{$R *.lfm}


end.

проверить возможности у меня увы нет. Но думаю как идея этот код подскажет в какую сторону можно копнуть.