function SHAutoComplete(hwndEdit: HWnd; dwFlags: DWORD): HResult; stdcall; external 'Shlwapi.dll';
procedure TForm1.FormCreate(Sender: TObject);
begin
SHAutoComplete(Edit1.Handle,0);
end;
function SHAutoComplete(hwndEdit: HWnd; dwFlags: DWORD): HResult; stdcall; external 'Shlwapi.dll';
procedure TForm1.FormCreate(Sender: TObject);
begin
SHAutoComplete(Edit1.Handle,0);
end;