Scrollbar stürzt ab nach Exception

[Pseudemys Nelsoni]

@luckie: aus dem explorer hab ich das noc nicht gestartet
@marco: ich weiss nicht wie man mit dieser scrollt, ausserdem finde ich (ist zwar unwichtig...) sieht sie nicht so gut aus wie die andere.
@Wormid: das einzigste was die scrollbars tun ist das:

Delphi-Quellcode:

procedure TForm1.ScrollBar2Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
  if ScrollCode = scLineUp then
  begin
    if StrToInt(Edit6.Text) < 10000 then
    Edit6.Text := IntToStr(StrToInt(Edit6.Text)+1);
  end;
  if ScrollCode = scLineDown then
  begin
    if StrToInt(Edit6.Text) > 0 then
    Edit6.Text := IntToStr(StrToInt(Edit6.Text)-1);
  end;
end;

ich glaub ich werd ma wieder alles neu machen, komischerweise hab ich bei meinem prog "standardpopups" bim rechtsklick der bildlaufleisten, wenn ich aber neues project mit ner scrollbar mache hat sie keine popups...