كيفية ربط الكومبوبوكس مع الميمو

Procedure TFormButton1Click(Sender:TObject)
var i:integer;
Begin
    If Combo1.ListIndex <> -1 then
      Begin
        For i:= 0 to Memo1.Lines.Count -1 do
         begin
          If Memo1.Lines = Combo1.SelectedItem.Text then
            showmessage('found'); 
          end;
      end; 
end;