listbox

[DM2005]

Hola... les comento don de me da error...

Código Delphi [-]
procedure TForm1.SpeedButton2Click(Sender: TObject);
var anterior: String;
begin
    anterior := '';
    with ListBox2.Items do
    begin
     if ListBox2.ItemIndex < Count-1 then begin
        ListBox2.ItemIndex := ListBox2.ItemIndex + 1
        if (ListBox2.items[ListBox2.itemindex] <> anterior) and (anterior <> '') then
            showmessage('cambio');
        anterior := ListBox2.items[ListBox2.itemindex];
    end
    else MessageDlg('Final del curso !',mtInformation,[mbOk],0);
end;

en la primer linea.... donde declara la variable... supongo que correctamente seria asi:

Código Delphi [-]
var anterior: String;

2º error es en la linea:

Código Delphi [-]
if (ListBox2.items[ListBox2.itemindex] <> anterior) and (anterior <> '') then

alli cuando compilo me da el siguinte mensaje:
"Missing operator or semicolon"

espero haber aclarado bien mi duda..
gracias