Kannst du bitte die Delphi-Tags setzen, damit dein Code lesbar wird?
Und es wäre hilfreich, wenn du uns mitteilst, was nicht funktioniert bzw. worin sich ein Fehler äußert.
Edit2:
Zeile 12 ist schonmal ein Fehler. Es müsste
if strvar = 'Yes' then
heißen. Die von der IF-Bedingung abhängigen Blöcke solltest du mit begin und end umgeben. Ansonsten ist nur die auf die IF-Abfrage folgende Zeile davon abhängig.
Lars S.
Wer nicht mit der Zeit geht, geht mit der Zeit.