OraSes.Connected := true;
ods.SQL.Text := 'select 1 from dual';
ods.Open;
ods.SQL.Text := 'select ''a'' from dual';
ods.Refresh; // Project Project1.exe raised exception class EConvertError with message ''a' is not a valid floating point value'. Process stopped. Use Step or Run to continue.