procedure TForm1.Button1Click(Sender: TObject);
var
HTML: string;
Money: string;
R: TRegExpr;
begin
HTML:=IdHTTP1.Get('http://www.сайтец.ыы');
memo1.Text:=html;
R:= TRegExpr.Create;
try
R.Expression := '^(?im).*?</td><td title="(.*?)" class="wrap".*$';
if R.Exec(HTML) then
begin
repeat
Money:= Money + R.Match[1] + #13#10;
until not R.ExecNext;
memo2.Text:=Money;
end;
finally
R.Free;
end;
end;