What does the following code snippet do?

procedure TForm1.btnSubmitClick(Sender: TObject);
var
  inputText: string;
begin
  inputText := edtInput.Text;
  if inputText = 'Delphi' then
    Memo1.Lines.Add('Welcome to Delphi programming!')
  else
    Memo1.Lines.Add('Incorrect input. Please try again.');
end;