Memo,code.foces,memo. Опции

[DekaR]

Здравствуйте!У меня 2-а вопроса:
1)Пользователь вводит в Memo команды паскаля(If x=1 then....)Надо,чтобы прога выполнила введённый в это поле код.
2)И меется 2-а мемо.И кнопка.Нужно,чтобы при на кнопку определённый текст добавлялся только в то мемо,на котором находится фокус.А если фокус ни на одном из них-текст не добавлялся никуда.

[volvo]

Так более понятно:

implementation

{$R *.dfm}

var
  LastFocused: ^TMemo;

procedure TForm1.Memo1Click(Sender: TObject);
begin
  LastFocused := @Memo1;
end;

procedure TForm1.Memo2Click(Sender: TObject);
begin
  LastFocused := @Memo2;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  LastFocused^.Lines.Append(':)'); // Ну, или что там тебе надо ...
  LastFocused^.SetFocus;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  LastFocused := @memo1;
end;

end.

?