program Weather_Com;

const
  cZip = '60657';

procedure OnDocumentComplete(URL : string);
begin
  if URL = 'http://www.weather.com/' then
    begin
      Fill('where', cZip);
      SubmitForm('whatwhere');
    end;
end;

begin
  Navigate('http://www.weather.com/');
end.