Crpe1.ReportName := 'C:\Company.rpt';
Crpe1.Connect.ServerName := 'WBSQLServer';
Crpe1.Connect.UserID := 'Elmer Fudd';
Crpe1.Connect.Password := 'Wabbit';
Crpe1.Connect.DatabaseName := 'Company1';
if Crpe1.Connect.Test then
  Crpe1.Show
else
  ShowMessage('Error Connecting');

Crpe1.ReportName := 'C:\Company.rpt';
with Crpe1.DatabaseFields[ 0 ] do
begin
  Left :=  250 ;
  Width :=  1440 ;
  Border.BackgroundColor := clRed;
  Format.ToolTip := 'Last Years Sales';
  Format.Field.Number.CurrencySymbol := '$';
  Format.Field.Number.UseLeadingZero := False;
  Font.Name := 'Arial';
  Font.Size :=  16 ;
  Font.Color := clYellow;
end;

Crpe1.ReportName := 'C:\Company.rpt';
{Clear the Query}
Crpe1.SQL.Clear;
{Build the Query}
Crpe1.SQL.Query.Add('SELECT DEPT."DEPTNO", DEPT."DNAME", DEPT."LOC"');
Crpe1.SQL.Query.Add('FROM "SCOTT"."DEPT" DEPT');
Crpe1.SQL.Query.Add('WHERE DEPT."DEPTNO" = 10');
Crpe1.SQL.Query.Add('ORDER BY DEPT."DNAME" ASC');
{Set the SQL Connection Password}
Crpe1.Connect.Password := 'Aesop';
Crpe1.Show;

Crpe1.ReportName := 'C:\Company.rpt';
Crpe1.StoredProcParams[ 0 ].Value := '100';
Crpe1.StoredProcParams[ 1 ].Value := '200';
Crpe1.Show;