Error con multihilos

[Ramsay]

Hola , tengo un problema haciendo multireading , estoy tratando de crear cinco que muestren simplemente un mensaje , el problema es que siempre muestra el error "Exception class EAccessViolation with message 'Access violation at address" al usarlo


type
TMyThread = class(TThread)
protected
procedure Execute; override;
public
text: string;
property ReturnValue;
end;

procedure TMyThread.Execute;
begin
if Terminated then
Exit;
MessageDlgPos(text, mtInformation, [mbOk], 0, 100, 200);
end;

procedure TForm1.btnTestClick(Sender: TObject);
var
LThread: TMyThread;
i: Integer;
begin

For i := 1 to 5 do
begin
LThread := TMyThread(Sender);
try
LThread.text := 'hi';
LThread.FreeOnTerminate := True;
except
LThread.Free;
raise;
end;
LThread.Resume;
end;
end;


¿ Cual es el problema ?

[AgustinOrtu]

Nunca creaste el thread, estas realizando un cast forzado sobre Sender, que no es un TThread, es un TButton

[Mosis2k2]

Preuba con esto y nos comentas:


procedure TForm1.btnTestClick(Sender: TObject);
var
LThread: TMyThread;
i: Integer;
begin

For i := 1 to 5 do
begin
LThread := TMyThread.Create;
try
LThread.text := 'hi';
LThread.FreeOnTerminate := True;
except
LThread.Free;
raise;
end;
LThread.Resume;
end;
end;