procedure TForm1.btnShockClick(Sender: TObject);
var
  i, p: Integer;
begin
  p := PairSplitter1.Position;
  for i := 0 to 5 do begin
    PairSplitter1.Position := p + 5;
    PairSplitter1.Position := p;
  end;
end;