Was ist eine Callback Funktion

[Luckie]

Also ich kenne sie und benutze sie auch zum Beispiel bei EnumWindows. Aber wie funktioniert eine Callback Funktion eigentlioch genau. Ich habe da mal was geschrieben:

Delphi-Quellcode:

type
  TCallBack = function(i: Integer): Boolean; stdcall;

function CallBack(i: Integer): Boolean; stdcall;
begin
  ShowMessage(IntToStr(i));
end;

procedure DoSomething(cb: TCallBack);
var
  i: Integer;
begin
  if Assigned(cb) then
  begin
    for i := 0 to 9 do
      CallBack(i);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DoSomething(CallBack);
end;

Wäre das eine Callback Funktion oder habe ich da was falsch verstanden und wenn ja, wie geht es richtig?