Stenographie; quellcode kommentieren

[omata]

Kommentieren hat was mit verstehen zu tun. Verstehen kannst du einen Quellcode wesentlich leichter, wenn du ihn (für dich und andere) vernünftig einrückst.
Dies kannst du auch hier in der DP.

Delphi-Quellcode:

procedure TForm1.K1Click(Sender: TObject);
var D, E, F:Integer;
    c, c1, c2: tColor;
    HS:String;
    bmpC:TBitmap;
begin
  bmpC:=TBitmap.Create;
  bmpC.Width:=IIA.Width;
  bmpC.Height:=IIA.Height;
  D:=0;
  c1:=$00100000;
  c2:=$00FEFFFF;
  with IIA do
  begin
    for E:=0 to width-1 do
      for F:=0 to height-1 do
      begin
        c:=Canvas.Pixels[E,F];
        If IIK.Canvas.Pixels[E,F] = clBlack then
        begin
          if c = clBlack then 
            c:=c1;
          if c = clWhite then 
            c:=c2;
          D:=D+1;
        end;
        bmpC.Canvas.Pixels[E,F]:=c;
      end;

    str(D:4, HS);
    Label1.Caption:=HS;
  end;
  IC.Picture.Bitmap.Assign(bmpC);
  IIC.Picture.Bitmap.Assign(bmpC);
  bmpC.Free;
end;

Schau doch mal in die Delphi-Hilfe, dort steht genau drin was das str macht.
kleiner Tipp: Es ist für die Darstellungsformatierung da.

Gruss
Thorsten