Es ist wirklich schwer herauszufinden wo dein Problem liegt mit dem was du an Code posted hast.
Allgemein solltest du aber deinen Thread so aufbauen:
(freihand runtergetippt)
Delphi-Quellcode:
TMeinThread = class(TThread)
private
m_Language : TLanguage;
protected
procedure Execute; override;
public
constructor Create(language: TLanguage);
end;
constructor TMeinThread.Create(language: TLanguage);
begin
inherited Create(false); // Dass der Thread nicht suspended gestartet wird
FreeOnTerminate := True // Falls der Thread nicht manuell free wird.
m_Language := language; // Der lokalen private-variable die dem Thread zugewiesene Sprache übermitteln
end;
procedure TForm1.FormCreate(Sender: TObject);
var
threadObjekte : array[0..4] of TMeinThread;
i : Integer;
begin
for i := 0 to 4 do
begin
threadObjekt[i] := TMeinThread.Create(LANG_GERMAN);
end;
end;
So würden 5 Threads mit der Sprache LANG_GERMAN erstellt. Jeder einzelne Thread
threadObjekt[i] muss selbstverständlich seperat eine Sprache zugeordnet bekommen.