problemer med if then else

jeg har en service som skal kører hvis visse betingelser er der

f.eks

var s : string;
begin
  s := dublet(listbox1,listbox2);
  if s <> '' then
    showmessage(s + '    Et eller flere Filnavne eksisterer i begge lister!')else
  Timer1.Enabled := True;
P1.Color:= ClLime;
Close;

hvis det samme filnavn eksisterer i begge lister får man en besked, men efterfølgende kode bliver udført efter at meddelelsen er lukket og det er jo ikke smart.

Listerne er listbox og det