Write a function isRed() that accepts a string parameter and looks for the presence of the word ‘red’ in the string. If it is found, return boolean True otherwise False. Finally output the result of calling the function with the value in text.
procedure mainform.buttonsenabled(boolean); begin if result=true then begin button1.enabled:=true; button2.enabled:=true; button3.enabled:=true; end else begin button1.enabled:=false; button2.enabled:=false; button3.enabled:=false; end; end;
