THtmlDoc

type THtmlDoc = class(TStringList)

protected

  class function Html; virtual;

public

  constructor Create;

  procedure Write();

  procedure WriteLn();

  procedure Link();

  procedure Form();

  property Contents: string; [r]

  property Language: ShortString; [rw]

  property Charset: ShortString; [rw]

  property Head: string; [rw]

  property Title: string; [rw]

  property Body: string; [rw]

end;

THtmlDoc

TObject