Code:

procedure TMainForm.LoadFileIntoList(TextFileName: string;

AWebPage: TStringList; WithFilter: Boolean);

var

CurrentFile: TStringList;

begin

CurrentFile := TStringList.Create;

CurrentFile.LoadFromFile(TextFileName);

if WithFilter then

FilterHTML(CurrentFile,AWebPage)

else

with AWebPage do

AddStrings(CurrentFile);

CurrentFile.Free;

end;

procedure TMainForm.FilterHTML(FilterInput, AWebPage: TStringList);

var

i, j: LongInt;

S: string;

begin

FilterMemo.Lines.Clear;

FilterMemo.Lines := FilterInput;

with AWebPage do

begin

FilterMemo.SelectAll;

j := FilterMemo.SelLength;

if j > 0then

begin

i := 0;

repeat

// ищем cr

if FilterMemo.Lines.GetText[i] = Char(VK_RETURN) then

S := S + #10#13;

else

if FilterMemo.Lines.GetText[i] = '<'then

repeat

inc(i);

until

FilterMemo.Lines.GetText[i] = '>'

else

// ищем tab

if FilterMemo.Lines.GetText[i] = Char(VK_TAB) then

S := S + ' '

else

S := S + FilterMemo.Lines.GetText[i]; // добавляем текст

inc(i);

until

i = j + 1;

Add(S); // добавляем строку в WebPage

end

else

Add('No data entered into field.'); // no data in text file

end;

end;

Code:

WebPage := TStringList.Create;

try

Screen.Cursor := crHourGlass;

AddHeader(WebPage);

with WebPage do

begin

Add('Personal Details');

LoadFileIntoList("filename.txt", Webpage, True);

end;

AddFooter(WebPage);

finally

WebPage.SaveToFile(HTMLFileName);

WebPage.Free;

Screen.Cursor := crDefault;

end;