uses
  SysUtils;

  var i:integer;
begin

  for i:=1 to 10 do
   begin
    Writeln(i);
   end;
  Readln;
end.

uses
 ADOdb,ActiveX;

var
 conMain : TADOConnection;
 tab1 : TADOTable;

begin
 CoInitialize(nil);
 conMain := TADOConnection.Create(nil);
 tab1 := TADOTable.Create(nil);

 conMain.ConnectionString := 'Provider=SQLOLEDB.1;Password=xx;Persist Security Info=True;User ID=sa;Initial Catalog=xx;Data Source=127.0.0.1';
 conMain.LoginPrompt := False;
 conMain.Open;

 tab1.Connection := conMain;
 tab1.TableName := 'CASTAFF';
 tab1.Active := True;
 tab1.Recordset.MoveFirst;
 while not tab1.Recordset.EOF do
 begin
   writeln(tab1.Recordset.Fields[2].Value);
   tab1.Recordset.MoveNext;
 end;

 CoUninitialize;
 Readln;
end.