парс для сайта

[Jadson]

есть сайт с вакансиями и мне нужно считать вакансии с сайта и занести их в делфи.
Пересмотрел много форумов но ниче толково похожего не нашел.
каким образом это можна осуществить?

вот есть пример который берет курс валют,как его переделать что бы он брал вакнсии из сайта work.ua

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, IdHTTP, ImgList, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    GroupBox2: TGroupBox;
    TreeView1: TTreeView;
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  html, dollar,euro, pr, pr2, tic, tic1, tic2:string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
html:=IdHTTP1.Get('http://www.fininfo.ru/swap/');
Delete(html,1,pos('<strong>USD:</strong> ',html)+length('<strong>USD:</strong> ')-1);
dollar:=copy(html,1,pos('<',html)-1);
edit1.Text:=dollar;
//------------------Берём информацию-------------------

Delete(pr,1,pos('<span class="PRCYRUdate">',pr)+length('<span class="PRCYRUdate">')-1);
pr:=copy(pr,1,pos('</span>',pr)-1);
end;
end.

[Ruslasy]

Дак вот же:
Delete(html,1,pos('ОТ ',html)+length('ОТ ')-1);
dollar:=copy(html,1,pos('До какого символа',html)-1);

[Jadson]

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

Дак вот же:
Delete(html,1,pos('ОТ ',html)+length('ОТ ')-1);
dollar:=copy(html,1,pos('До какого символа',html)-1);

спасибо большое,разобрался