Hi,
this is TImageEnView.Zoom property (it is also writable...):
trackbar.Position := trunc( ImageEnView1.Zoom );
Example handling OnViewChange event:
procedure TForm1.ImageEnVect1ViewChange(Sender: TObject; Change: Integer);
begin
TrackBar1.Position := trunc(ImageEnView1.Zoom);
end;