Algo acerca de ListBox

[Ledian_Fdez]

Holas amigos:

Como podria corregir el siguiente error. 'list index out of bounds (-1)'

Esto me ocurre cuando no se selecciona ningun items del listbox y el codigo que me genera el error es este:

Código Delphi [-]
procedure TFindForm.BitBtn2Click(Sender: TObject);
var
 Tem : string;
begin
 Tem := Copy(ListBox1.Items[ListBox1.ItemIndex],1,2);
end;

Alguien podria orientarme como corregirlo.
De antemano muchas gracias.

Saludos Ledian