[KOOL]

Тогда делай так:

Код:

var stroka : TStrings;
...
stroka := TStringlist.Create;
try
  stroka := Memo1.Lines;
  GetHTMLCode(WB,stroka);
finally
  stroka.Free;
end;
...

Должно получиться