object Form1: TForm1 Left = 238 Height = 314 Top = 145 Width = 456 Caption = 'Form1' ClientHeight = 314 ClientWidth = 456 OnCreate = FormCreate LCLVersion = '2.3.0.0' object DBGrid1: TDBGrid Left = 43 Height = 195 Top = 97 Width = 365 Color = clWindow Columns = <> DataSource = DataSource1 TabOrder = 0 end object SQLTransaction1: TSQLTransaction Active = False Action = caNone Database = SybaseConnection1 Left = 208 Top = 32 end object SQLQuery1: TSQLQuery FieldDefs = < item Name = 'srvid' DataType = ftSmallint Precision = -1 end item Name = 'srvstatus' DataType = ftSmallint Precision = -1 end item Name = 'srvname' DataType = ftFixedChar Precision = -1 Size = 60 end item Name = 'srvnetname' DataType = ftFixedChar Precision = -1 Size = 510 end item Name = 'srvclass' DataType = ftSmallint Precision = -1 end item Name = 'srvsecmech' DataType = ftFixedChar Precision = -1 Size = 60 end item Name = 'srvcost' DataType = ftSmallint Precision = -1 end item Name = 'srvstatus2' DataType = ftBCD Precision = 10 end item Name = 'srvprincipal' DataType = ftFixedChar Precision = -1 Size = 510 end> Database = SybaseConnection1 Transaction = SQLTransaction1 SQL.Strings = ( 'select * from sysservers' ) Params = <> Macros = <> Left = 280 Top = 32 end object SybaseConnection1: TSybaseConnection Connected = False LoginPrompt = False KeepConnection = False Transaction = SQLTransaction1 UserName = 'sa' LogEvents = [] Left = 128 end object MSSQLConnection1: TMSSQLConnection Connected = False LoginPrompt = False KeepConnection = False LogEvents = [] Left = 128 Top = 48 end object DataSource1: TDataSource DataSet = SQLQuery1 Left = 372 Top = 32 end end