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