javascript??? procedure???

[rob]

hallo leute,
irgendjemand nutzt mein forum für dinge die ich nicht einordnen kann.
kann mir jemand sagen worum es sich dabei handelt? wär schön
folgende Zeilen fand ich vor:

<!-- procedure Tmnotiz.speichern;
var i,zahl: integer;
begin
if savedialog1.execute then begin
Mystream:=Tfilestream.Create(savedialog1.filename,fmcreate);
zahl:=myliste.Number(Liste);
Mystream.writebuffer(Anzahl,sizeof(Anzahl));
myliste.reset(Liste);
Zettel:=Tmneu.create(self);
for i:=1 to zahl do begin
Zettel:=Pointer(Liste.Pos^.Inhalt);
Lknoten.key:=Zettel.edname.Text;
Lknoten.text:=Zettel.memocon.Text;
MyStream.WriteBuffer(LKnoten,SizeOf(Lknoten));
liste.pos:=Liste.pos^.next;
end;
mystream.free;
end;
end;  -->

oder auch dieses:

<!-- procedure TMain.DateiLaden(Pfad: String);
var i:integer;
begin
LbZahl.Caption := 'Aktuelle Knotenanzahl:';
MyStream := TFileStream.Create(Pfad,fmOpenReadWrite);
MyStream.ReadBuffer(AnzahlStream, SizeOf(AnzahlStream));
MyListe := TListe.Create(Liste);
for i := 1 to AnzahlStream do
begin
Zettel := TFNew.Create(Self);
MyStream.ReadBuffer(LKnoten, SizeOF(LKnoten));
Zettel.EdTitel.Text := LKnoten.Key;
Zettel.MemNotiz.Text := LKnoten.Text;
InhaltZ := Pointer(Zettel);
MyListe.Append(Liste, LKnoten.Key, InhaltZ);
end;
MyStream.Free;
LbZahl.Caption := 'Aktuelle Knotenanzahl: ' + IntToStr(MyListe.Number(Liste));
end;   -->