How does it help you?
Simple code for simple captcha system:
var
html: string;
p1, p2: Integer;
number: string;
begin
html := ....
if (Pos(html, 'CAPTHCA') > 0) then
begin
p1 := Pos(html, 'number: ');
p1 := p1 + Length('number: ');
p2 := Pos(html, ' ', p1);
number := Copy(html, p1, p2 - p1);
ByPassToServer('someact=' + number);
end;
end;