<pre class="brush: pascal">
コードを書く
procedure TForm1.SpeedButton2Click(Sender: TObject);
var
sqlstmt:string;
begin
sqlstmt:='CREATE TABLE TEST_TBL '+
ShowMessage('Connected ERR');
end;
//--------------------------------------------------------------------------
</pre>