CreateThread() en Delphi sigue mostrando [Error] Unit1.pas(153): Variable requerida

Publique su código fuente, @geturl es el procedimiento almacenado que escribió, ¿verdad?

Si no quieres publicar, aquí tienes un ejemplo

var

Form1: TForm1

ThreadHandle: THandle; / Guardar el hilo El identificador de

ThreadHandle2.THandle;

CriticalSection: function ThreadFunc(Info: Pointer): Integer;

var

Count : Integer; //Variables generales de control de bucle

comienzan

{Ejecute la función EnterCriticalSection para evitar que se ejecute el segundo hilo

hasta el el hilo sale de la sección crítica} .

EnterCriticalSection(CriticalSection);

{ Mostrar visualización }

para Count := 0 a 100

comenzar

Form1.Edit1.

Inicio

Form1.Edit1.

Form1.Sleep(1000); Sección crítica y hilo de salida}

LeaveControl (Dejar sección crítica).

LeaveCriticalSection(CriticalSection);

ExitThread(4);

fin

procedimiento TForm1.Button1Click(Remitente: TObject);

var

ThreadId1, ThreadId2: DWORD; // contiene los identificadores del hilo creado

comenzar

{inicializar la información de la sección crítica}

Inicializar CriticalSection(CriticalSection);

ExitThread(4);

fin.

InicializarCriticalSection(CriticalSection);

{Crear y ejecutar el primer hilo}.

ThreadHandle := CreateThread(nil, 0, @ThreadFunc, nil, 0, ThreadId1);

{Crear y ejecutar el segundo hilo}

Crear y ejecutar el segundo hilo.

ThreadHandle2 := CreateThread(nil, 0, @ThreadFunc, nil, 0, ThreadId1);

fin

Procedimiento TForm1. Remitente: TForm1.

DeleteCriticalSection(CriticalSection);

Procesar TForm1.