[Delphi] list index out of bounds(1) hatası

Merhaba,

çıldırmak üzereyim bir detayı atlıyorum yada bir bug bu.

function ho:string;
begin
   Result := tform1.ListBox4.Items.Strings[tform1.ListBox4.itemindex];
end;

bu fonksiyonda ve

ListBox4.Items.Strings[ListBox4.itemindex]

olan her yer hata veriyor Bu işlemi bir türlü string'e atayamıyorum :S

mesela listbox.items.string[listbox.itemindex]

bu şekilde kırmızı olan yer çıkmıyor ctrl space de vs. normalde string[integer] : string; şekilde kod.

pm ile bana msn adresinizi atın yardımcı olmaya çalışayım team viewer ile

Çook teşekkür ederim. Arkadaş kodsal hataları tek tek ayıkladı hiç çekinmeden.

function ho:string;
begin
if tform1.ListBox4.itemindex <> -1 then
Result := tform1.ListBox4.Items.Strings[tform1.ListBox4.itemindex];
end;