Canvas spinnt

[Muetze1]

Zitat von Neutral General:

Delphi-Quellcode:

if Style = gsNone then
begin
  Canv := TCanvas.Create;
  try
    Canv.Handle := DC;
    Canv.Brush.Color := FromColor;
    Canv.Pen.Style := psClear;
    if Clip <> 0 then
      Canv.RoundRect(Rec.Left+1,Rec.Top+1,Rec.Right+1,Rec.Bottom+1,23,23)
    else
      Canv.Rectangle(Rec.Left+1,Rec.Top+1,Rec.Right+1,Rec.Bottom+1);
    Canv.Pen.Style := psSolid;
    exit; // darf man nicht ins finally schreiben ... finally wird trotzdem noch aufgerufen.
  finally
    Canv.Free;
  end;
end;

Kannst du mir mal bitte den Kommentar näher erklären und auch den Sinn des "Exit"'s?