unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw,MSHTML, StdCtrls;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
     WebBrowser1.Stop;
     WebBrowser1.Navigate('about:');

end;

procedure TForm1.Button1Click(Sender: TObject);
var
  HTMLDocument: IHTMLDocument2;
  f:file;
  s:string;
begin
  HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
  if HTMLDocument<>nil then
  HTMLDocument.body.innerHTML:='<font color=red>Red</font><br><font color=green>Green</font><br>';
end;

end.

101101100100110100101101

procedure PasteInMemo(var temp: string, N: byte)

procedure TForm1.PasteToMemo(text: String; index: Integer);
var te:TEdit;
begin

     te=nil;
     te:=FindComponent('Edit'+inttostr(index)) as TEdit;
     if te<>nil then te.Text:=Text;
end;

procedure TForm1.ShowImp(temp: string; index: byte);
var
    tC: Tchart;
    tM: TMemo;
    i: byte;
    imp: integer;
begin
tC:= nil;
tC:= FindComponent('Chart'+inttostr(index)) as TChart;
tM:= nil;
tM:= FindComponent('Memo'+inttostr(index)) as TMemo;

with tc.Series[0] do
  begin
  for i:=1 to Length(tM.Text) do
    begin
    imp:= StrToInt(copy(temp,i,1));
    if imp=1 then
        begin
        if (StrToInt(copy(temp,i-1,1))=0) or (i=1) then AddXY(i,0); AddXY(i,1); AddXY(i+1,1);
        end;
    if imp=0 then
        begin
        AddXY(i,0); AddXY(i+1,0);
        end;
    end;
  end;
end;

[Hint] Unit1.pas(171): Value assigned to 'tM' never used
[Hint] Unit1.pas(169): Value assigned to 'tC' never used