Delphi-Quellcode:
procedure zeichene // blalba das was du da hast
var res: boolean;
begin
res := (hier die abfrage beim klick auf ja muss ein true zurückgegebne werden und bei nein ein false kannste mit showmessage oder somachen musste gucken was dir am besten gefällt)
if res = true
begin
//
// Zeichen ka den code den du da schon hast
//
end else
//
// Tu irgentwas wenn NEIN angeklickt wurde
//
end;
end;
is zwar kein gutes beispiel an erlärungskunst aber man sollte den sinn verstehn