procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = ('Lösenordet') then
ShowMessage ('Du lyckades med att skriva in rätt lösenord!')
else
ShowMessage ('Du skrev tyvärr in fel lösenord försök igen.')
end;