checke text i 2 listbox

Prøv med følgende:

function dublet(L1, L2 : Tlistbox) : string;
var i, j : integer;
begin
  result := '';
  for i := 0 to L1.items.count - 1 do
    for j := 0 to L2.items.count - 1 do
      if L1.Items[i] = L2.Items[j] then begin
        result := L1.Items[i];
        exit
      end
end;

procedure TForm1.Button1Click(Sender: TObject);
var s : string;
begin
  s := dublet(listbox1,listbox2);
  if s <> '' then
    showmessage(s + ' er dublet')
end;

smid et svar lsc

takker:::

Det er jo det der er det gode ved denne side - at vi kan hjælpe hinanden.

/lsc