Indy TIdTCPServer og OnExecute

Du har helt ret i at man ikke må opdatere sin form direkte fra en anden tråd, fordi VCL ikke er thread-safe.
Du skal bruge Synchronize proceduren for at gøre det. Læs hjælpen.
Der er selvfølgelig også andre måder, du f.eks. kan poste en message fra den sekundære tråd til hovedtråden.

Synchronize findes ikke længere i Indy 10, men har fundet svaret i en NG, det er TIdSync der skal benyttes nu.

Således:

  type
        TEditSync = class(TIdSync)
        protected
            procedure DoSynchronize; override;
        public
            Edit: TEdit;
            Msg: String;
            class procedure SetText(AEdit: TEdit; const AMsg: String);
        end;

    class procedure TEditSync.SetText(AEdit: TEdit; const AMsg: String);
    begin
        with Create do
        try
            Edit := AEdit;
            Msg := AMsg;
            Synchronize;
        finally
            Free;
        end;
    end;

    procedure TEditSync.DoSynchronize;
    begin
        Edit.Text := Msg;
    end;

    procedure TForm1.TCPServer1OnExecute(AContext:TIDContext);
    begin
        .....
        TEditSync.SetText(Form1.Edit1, 'Demo');
        ...
    end;

Jeg tænkte på Synchronize som er en del af TThread.
Det må vel være den som din class procedure TEditSync.SetText bruger?

Smider du et svar.

Jeg samler ikke specielt på point, men skidt da...