这是一段BASIC语言，如何翻译为PACSAL(50分)

Private Sub Text1_Change()
Dim Search As String, Index As Long
Search=Text1.Text
If Len(Search)>0 then

Index=SendMessage(List1.hwnd,LB_SELECTSTRING,-1,ByVal Search)
else

List1.ListIndex=0
End If
End Sub

function Text1_Change()
var
Search : String;
Index : real;
begin

Search=Text1.Text;
If Len(Search) > 0 then

Index=SendMessage(List1.hwnd,LB_SELECTSTRING,-1,ByVal Search)
else

List1.ListIndex := 0;
end;

ByVal Search在delphi中编译出错

function Text1_Change()
var
Search : String;
Index : real;
begin

Search=Text1.Text;
If Len(Search) > 0 then

Index := SendMessage(List1.hwnd,LB_SELECTSTRING,-1,ByVal Search)
else

List1.ListIndex := 0;
end;

[]在DELPHI的窗体中增加一个EDIT（Text only in vb) 和 LISTBOX。
//code in here:
{$Hints Off}
procedure TBaseForm1.Edit1Change(Sender: TObject);
var
Search : String;
vIndex : single;
begin
Search := Edit1.Text;
if StrLen(PChar(Search)) > 0 then
vIndex := SendMessage(ListBox1.Handle,LB_SELECTSTRING,-1,LPARAM(LPCTSTR(Search)))
else
ListBox1.ItemIndex := 0;
end;
{$Hints On}
能实现你在VB中所需要的功能。如果我没猜错的话，应该是是EDIT中的字符串和LIST中的匹配。
代码我调试过了。在D5中通过。你可以试试看。
如果可以了，别忘了给分。因为操作失误，我的分快用完了。：）

Zorro_1234567方法可行，发分！