Delphi 7 procedure to extract data from a web page

This is the web site
https://acc2.comercio-digital.mx/acciones2/ValidaRfc

In the entry box called "RFC", you can try this valid data
OOP9806025K2
GVO180416FF9
AERJ9107232R1

This are not valid data, (and of course any random test will also be invalid)
LOKO090909000
DER120823KL0
COPE090218553

As a result it will display a text message in blue

I need a Delphi 7 routine like this

procedure (TestData:string; var messageinblue : string);