s:= combobox2.Text; // Копируем выделеный текст

s:= combobox2.Items.Strings[combobox2.Itemindex];

uses ClipBrd;

procedure TForm1.ComboBox2Change(Sender: TObject);
var
  s: string;
  i: word;
begin
  ...
  {ClipBoard.Create;}
  ClipBoard.Open;
  ClipBoard.AsText:= combobox2.Items.Strings[combobox2.Itemindex];
  ClipBoard.Close;
  ...
end;

procedure TForm1.ComboBox2Click(Sender: TObject);
 begin
  ClipBoard.Open;
  ClipBoard.AsText:= combobox2.Items.Strings[combobox2.Itemindex];
  ClipBoard.Close;
 end; 

procedure TForm1.ComboBox2Change(Sender: TObject);
var
  s: string;
  i: word;
begin
  s:= combobox2.Text; 
  for i:= 0 to (memo3.Lines.Count - 1) do
    if s = memo3.Lines.Strings[i] then 
      begin
        memo3.SelStart:= memo3.Perform(EM_LINEINDEX, i, 0); 
        memo3.SelLength:= Length(memo3.Lines[i]); 
        memo3.SetFocus; 
      end;
end;

procedure TForm1.ComboBox2Click(Sender: TObject);
 begin
  ClipBoard.Open;
  ClipBoard.AsText:= combobox2.Items.Strings[combobox2.Itemindex];
  ClipBoard.Close;
 end; 

    procedure TForm1.ComboBox2Change(Sender: TObject);
    var
    s: string;
    i: word;
    begin
    s:= combobox2.Text; // Копируем выделеный текст
    ClipBoard.Open;
    ClipBoard.AsText:= combobox2.Items.Strings[combobox2.Itemindex];
    ClipBoard.Close;
    for i:= 0 to (memo3.Lines.Count - 1) do
    if s = memo3.Lines.Strings[i] then // Ищем совпадение строки в мемо и скопированного текста
    begin
    memo3.SelStart:= memo3.Perform(EM_LINEINDEX, i, 0); // Устанавливваем начало выделения найденой строки
    memo3.SelLength:= Length(memo3.Lines[i]); // Выделяем всю строку
    memo3.SetFocus; // Фокус на мемо
    end;
    end;