Используйте, наконец, объектное программирование.


type
TAfterThreadEvent = procedure ( Sender : TObject ; ReturnValue : Variant ) of object ;

TMT = class(TThread)
protected
...
FOnEndThread : TAfterThreadEvent ;
procedure EndThread ;
...
public
...
V1 : Variant ;
property OnEndThread : TAfterThreadEvent read FOnEndThread write FOnEndThread ;
...
end;

TForm1 = class(TForm)

public
procedure AfterThread( Sender : TObject ; ReturnValue : Variant ) ;
procedure Button1Click( Sender : TObject ) ;
procedure Button2Click( Sender : TObject ) ;
end ;

var Form1 : TForm1 ;
OP : TMT ;

implementation

procedure TMT.EndThread ;
begin
if Assigned( FOnEndThread ) then
FOnEndThread( self, V1 ) ;
end ;

procedure TMT.Execute ;
begin
while not Terminated do
begin
Какие-то действия в потоке ;
end ;

EndThread ;
end ;

procedure TForm1.AfterThread( Sender : TObject ; ReturnValue : Variant ) ;
begin
Какие-то действия после потока из после завершения вызываемого потока
RetValue - переменная V1 из потока
end ;

procedure TForm1.Button1Click( Sender : TObject ) ;
begin
OP := TMT.Create( True ) ;
OP.OnEndThread := AfterThread ;
OP.Resume ;
end ;

procedure TForm1.Button2Click( Sender : TObject ) ;
begin
OP.Terminate ;
end ;

2 lprog
Если укажешь e-mail вышлю пример по работе с сокетами и связанными с ними потоками.