delphi初学者，遇到问题了，求解

Question

下面是我写的代码，我还想实现的是：接收sql语句执行后，返回的结果，但我不知道在哪里接收...求指点！！！
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids,ADODB, StdCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    btnLogin: TButton;
    procedure btnLoginClick(Sender: TObject);
  private
        F_Connection : TADOConnection;
        F_Query : TADOQuery;
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
implementation{$R *.dfm}procedure TForm1.btnLoginClick(Sender: TObject);
var
    UserName:string;
    UserPwd:string;
    V_SQL : string;
    number : Integer;
begin
         UserName:=Edit1.Text;
         UserPwd:=Edit2.Text;
         F_Query.Connection:=F_Connection;
         F_Connection.Open;
         F_Query.Close;
         F_Query.SQL.Add('select COUNT(*) from UserLogin where (UName:=name) and (UPwd:=pwd)');
         F_Query.Parameters.ParamByName('name').Value := trim(edit1.Text);
         F_Query.Parameters.ParamByName('pwd').Value := trim(edit2.Text);
         F_Query.Open;end;
end.

Answer 1

procedure TForm1.btnLoginClick(Sender: TObject);
var
    UserName:string;
    UserPwd:string;
    V_SQL : string;
    number : Integer;
begin
         UserName:=Edit1.Text;
         UserPwd:=Edit2.Text;
         F_Query.Connection:=F_Connection;
         F_Connection.Open;
         F_Query.Close;
         F_Query.SQL.Add('select COUNT(*) from UserLogin where (UName:=name) and (UPwd:=pwd)');
         F_Query.Parameters.ParamByName('name').Value := trim(edit1.Text);
         F_Query.Parameters.ParamByName('pwd').Value := trim(edit2.Text);
         F_Query.Open;      ShowMessage(F_Query.FieldByName('COUNT(*)').AsString);end;

Answer 2

F_Query.SQL.Add('select COUNT(*) from UserLogin where (UName:=name) and (UPwd:=pwd)');
改成：
F_Query.SQL.Add('select COUNT(*) as jls from UserLogin where (UName:=name) and (UPwd:=pwd)');最后一句是：ShowMessage(F_Query.FieldByName('jls').AsString);