var
  LobjVerbalExpression : TVerbalExpression;
begin
  LobjVerbalExpression := TVerbalExpression.Create
    .StartOfLine()
    ._Then('http')
    .Maybe('s')
    ._Then('://')
    .Maybe('www.')
    .anythingBut(' ')
    .endOfLine();

  ListBox1.Items.Add(LobjVerbalExpression.AsString);

  if LobjVerbalExpression.Test('https://github.com') then
    ListBox1.Items.Add('valid url')
  else
    ListBox1.Items.Add('invalid url');

end;