SQL query

[value is NULL]

Hab jetzt versucht mir das ganze zu vereinfachen und eine unit zu schreiben:

Delphi-Quellcode:

unit sqlst;

interface

uses
  SysUtils,db,adodb,activex;

function connect(): string;
function query(query : string) : string;
function close(): string;

var
  conn : TADOConnection;
  query1 :TADOQuery;

IMPLEMENTATION

function connect(): string;
begin
try
  CoInitialize(nil);
  Conn := TADOConnection.Create(nil);
  Conn.ConnectionString := 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info = False;Initial Catalog=test;Data Source=localhost';
  Conn.Connected := true;
except
  on e : exception do begin
    writeln(e.message);
    halt(1);
  end;
end;
end;

function query(query : string) : string;
begin
try
  query1 := TADOQuery.Create(nil);
  query1.Connection := Conn;
  query1.SQL.Text := query;
  query1.Active := True;
except
  on e : exception do begin
    writeln(e.message);
    halt(1);
  end;
end;
end;

function close(): string;
begin
try
  query1.SQL.Clear;
  query1.close;
except
  on e : exception do begin
    writeln(e.message);
    halt(1);
  end;
end;
end;


end.

ABBEERR ich habe ja nun das problem, das ich an dieser stelle:

Delphi-Quellcode:

function query(query : string) : string;
begin
try
  query1 := TADOQuery.Create(nil);
  query1.Connection := Conn;
  query1.SQL.Text := query;
  query1.Active := True;
except
  on e : exception do begin
    writeln(e.message);
    halt(1);
  end;
end;
end;

und zwar genau an dieser Stelle  query1.SQL.Text := query; ich muss hier ja auch diesen wert überegeben... wie könnte ich das lösen?

mir fehlt praktisch diese zeile:

 query.FieldbyName('wert').asstring LG und DANKE