Código Delphi [-]Label1.Caption := TuZQuery.FieldByName('TuCampo').Asstring;
Label1.Caption := TuZQuery.FieldByName('TuCampo').Asstring;