Busca na listbox

Ae pessoal, eu folgando aqui de novo....

Olha... Estou fazendo um programa de códigos... Ate que pedi aquele componente pra deixar colorido... pois é.. são vários... ainda um saco pra usar...

Aqui tenho o codigo que quero para VBzaum

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongDim strSearch As StringDim intPos As IntegerstrSearch = Me.Text1.TextWith List1If strSearch = "" Then .ListIndex = 0Else intPos = SendMessage(.hwnd, _ LB_FINDSTRING, _ -1, _ ByVal strSearch) If intPos >= 0 Then .ListIndex = intPos End IfEnd IfAlguem ai tem ideia de como fica no delphi? sem mas selecionado os items tipodigito no Edit 'ABC'

tem na lista 'abcdefg...'

entao ele seleciona o 'ab'

Pq esse aqui:

lbCmdList.ItemIndex:= lbCmdList.Items.IndexOf(txtCmdFind.Text)

Saiu completamente escroto, pq maioria das func. são desse assim:

bCmdList.Items.Add('doPlayerSendDefaultCancel(uid, ReturnValue)'); lbCmdList.Items.Add('getPlayerStorageValue(uid,valueid)'); lbCmdList.Items.Add('setPlayerStorageValue(uid,valueid, newvalue)'); lbCmdList.Items.Add('getGlobalStorageValue(valueid)'); lbCmdList.Items.Add('setGlobalStorageValue(valueid, newvalue)'); lbCmdList.Items.Add('doPlayerAddOutfit(cid,looktype,addons)'); lbCmdList.Items.Add('doPlayerRemOutfit(cid,looktype,addons)');lbCmdList.Items.Add('doSetCreatureLight(cid, lightLevel, lightColor, time)');Niguem que saiba essas helps nas virgulas ira ficar usando a list, ate pq seria mais facil digitar o comando e espaço, que to usando uma engenhoca pra quando digitar o comando addcionar esses helps, com o componente de auto edição