Hello,Martijn!

>Right ;-)
>I'll have a go -- let me see what would be the easiest way...

It`s really easy ;)

var FAbortScriptFlag:boolean=False; // global unit or class
variable

//-------------
Procedure MyForm.ExecuteScriptByStep;
Begin
MyScript.OnStatement:=OnScriptStatement;
MyScript.Execute;
End;
//-------------

Procedure MyForm.OnScriptStatement(Sender: TIB_Script; var
Statement: String; var SkipIt: Boolean); Begin
if FAbortScriptFlag then SkipIt:=True
else case MessageBox(Application.Handle,PChar('Execute
this:'+Statement),'Confirmation',MB_YESNOCANCEL) of
IDYES :SkipIt:=False; // continue execute
IDNO :SkipIt:=True; // skip statement but
continue execute script
IDCANCEL:begin

SkipIt:=True; // skip statement
FAbortScriptFlag:=True; // skip
all below statement too (auto skip all statements in script later)
{
these you can use
TIB_Script.AbortExecuting() method too
}
end;
end;
End;


WBR,Dmitry Beloshistov AKA [-=BDS=-]