TThread.Synchronize(ShowData);


** 직접 구현하는 경우

type
TSync = class(TThread)
private
  fmethod: TThreadmethod;
public
  constructor Create(m: TThreadmethod);
  procedure Execute; override;
end;

implementation

{ TSync }

constructor TSync.Create(m: TThreadmethod);
begin
  inherited Create(fasle);
  Freeonterminate := true;
  fmethod := m;
end;

procedure TSync.Execute;
begin
  Synchronize(fmethod);
end;

예)
...
TSync.Create(ShowData);
..