[v1s2222]

Наверно ты имел ввиду это:

Код:

stat:= Utf8ToAnsi(IdHTTP1.Post(Edit1.text, data));
     n1:=pos('padding-top:7px;">', stat);
     n2:=pos('<div style="text-align:right;', stat);
     stat:=copy(stat,n1,n2-n1);
     Memo1.Lines.Text :=stat;

Функция Pos(что ищем, где).