Position einer fremden Progressbar ändern

[Fussball-Robby]

Delphi-Quellcode:

uses CommCtrl;

procedure TForm1.Button1Click(Sender: TObject);
var
  Old, New: Integer;
begin
  New := 50;
  Old := SendMessage(ProgressBar.Handle, PBM_SetPos, New, 0);
  ShowMessage('Alte Position: ' + IntToStr(Old) + #13#10 +
              'Neue Position: ' + IntToStr(New));
end;