Как убрать ненужное?

[ArtGrek]

v google vvedi!
Eof(myText) delphi

[cargo29]

Сообщение от ArtGrek

v google vvedi!
Eof(myText) delphi

водчеркивает почему?:

вот код
c:=Pos('<div id="tm_tomorrow">', a)+31;
e:=Pos('</p>', a);
t:=Pos('</p>', a)+11;
d:=Pos('<div class="mb2">', a)-8;
b:=Copy(a, c, e-c);
w:=Copy(a, t, d-t);
while not Eof(b) do
begin
if Pos('&laquo', b)<>0 then delete(b, Pos('&laquo', b), Length('&laquo'));
end;
memo1.Text:=b+' '+w ;

[cargo29]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdAntiFreezeBase, IdAntiFreeze, IdCookieManager,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  StdCtrls, XPMan, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    IdHTTP1: TIdHTTP;
    IdCookieManager1: TIdCookieManager;
    IdAntiFreeze1: TIdAntiFreeze;
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,w,tex, url:string;
c,d,e,t:integer;
begin
if RadioButton1.Checked=true then
url:='today';
if RadioButton2.Checked=true then
url:='tomorrow';
try
if ComboBox1.Text='Овен' then
begin
a:=IdHTTP1.Get('http://horo.mail.ru/prediction/aries/'+url);
Image1.Picture:=form2.Image1.Picture;
end;
if ComboBox1.Text='Телец' then
begin
a:=IdHTTP1.Get('http://horo.mail.ru/prediction/taurus/'+url);
Image1.Picture:=form2.Image5.Picture;
end;

if ComboBox1.Text='Близнецы' then
 begin
 a:=IdHTTP1.Get('http://horo.mail.ru/prediction/gemini/'+url);
 Image1.Picture:=form2.Image9.Picture;
end;

if ComboBox1.Text='Рак' then
begin
a:=IdHTTP1.Get('http://horo.mail.ru/prediction/cancer/'+url);
Image1.Picture:=form2.Image11.Picture;
end;

if ComboBox1.Text='Лев' then
begin
a:=IdHTTP1.Get('http://horo.mail.ru/prediction/leo/'+url);
 Image1.Picture:=form2.Image12.Picture;
end;

if ComboBox1.Text='Дева' then
begin
a:=IdHTTP1.Get('http://horo.mail.ru/prediction/virgo/'+url);
Image1.Picture:=form2.Image4.Picture;
end;

if ComboBox1.Text='Весы' then
begin
a:=IdHTTP1.Get('http://horo.mail.ru/prediction/libra/'+url);
Image1.Picture:=form2.Image8.Picture;
end;

if ComboBox1.Text='Скорпион' then
begin
a:=IdHTTP1.Get('http://horo.mail.ru/prediction/scorpio/'+url);
Image1.Picture:=form2.Image10.Picture;
end;

if ComboBox1.Text='Стрелец' then
begin
a:=IdHTTP1.Get('http://horo.mail.ru/prediction/sagittarius/'+url);
Image1.Picture:=form2.Image2.Picture;
end;

if ComboBox1.Text='Козерог' then
 begin
a:=IdHTTP1.Get('http://horo.mail.ru/prediction/capricorn/'+url);
Image1.Picture:=form2.Image3.Picture;
end;

if ComboBox1.Text='Водолей' then
begin
a:=IdHTTP1.Get('http://horo.mail.ru/prediction/aquarius/'+url);
Image1.Picture:=form2.Image6.Picture;
end;

if ComboBox1.Text='Рыбы' then
begin
a:=IdHTTP1.Get('http://horo.mail.ru/prediction/pisces/'+url);
Image1.Picture:=form2.Image7.Picture;
end;
if RadioButton1.Checked=true then
c:=Pos('<div id="tm_today">', a)+28;
if RadioButton2.Checked=true then
c:=Pos('<div id="tm_tomorrow">', a)+31;


e:=Pos('</p>', a);
t:=Pos('</p>', a)+11;
d:=Pos('<div class="mb2">', a)-8;
b:=Copy(a, c, e-c);
w:=Copy(a, t, d-t);

 while not Eof(b) do
  begin
    if Pos('&laquo', b)<>0 then delete(b, Pos('&laquo', b), Length('&laquo'));
  end;
memo1.Text:=b+' '+w ;
except
ShowMessage('Проверте настройки интернета');
end;
end;

end.

[Пепел Феникса]

i:=Pos('&laquo',s);
while i<>0 do
begin
delete(s, i, Length('&laquo'));
i:=Pos('&laquo',s);
end;

ArtGrek, зачем такой бред писать?

while not Eof(myText) do

давно строка файлом стала?

[ArtGrek]

ArtGrek, зачем такой бред писать?

давно строка файлом стала?

простите обознался правельнее while i<>0 do, перепутал
Eoln Возвращает true, если позиция курсора находится в конце строки

[Пепел Феникса]

опять ошибка eoln как и eof функции работы с файлами, но не строками.(у строки вообще нет понятие положение)