procedure TfrmTestDM.qry ;
var
  mblue : string ;
begin
  mblue := frmTestMain.Label1.Caption ;
  with frmTestDM.ADODAtaset1 do
  begin
    close ;
    commandtext := '' ;
    commandText:= ' select * from dhsfds where fanname = :a1' ;
    parameters.ParamByName('a1').value := mblue ;
    open;
  end;
end;

먼저 이렇게 프로시져를 만들었습니다.
어떤 폼에서 뿌려지는 데이터값을 비교해서 그러니까 MBLUE 값이죠
그래서
퀵리포트에서 데이터베이스의 필드값을 뿌릴려고 하거든요
어떤 도면 예를들어서 BANDTYPE을 rbDetail 위에 이미지를 넣고
그위에 QRLABEL로 값을 뿌리는건데요
값을 뿌리는게 문제가 아니라  왜 도면보시면 아시겠지만 가로로 LABEL.CAPTION := 여기부분에 필드값을 출력하는데 이넘을 90도 정도를
회전시켜서 출력해야 하거든요 세로로 쓰기는 #13 쓰면되는데 이렇게 하는게
아니라 가로로 출력된 넘을 세로로 추시넣는 부분에 90도 정도 돌려서 출력해야 하거든요 어떻게 해야 할지 도무지 모르겠습니다.
도와주세요
출력부분은 간단하게 테스트 하는데

procedure TfrmDwgReport.FormShow(Sender: TObject);
begin
    frmTestDM.qry ;
    with frmTestDM.ADODataSet1 do
    begin
      QRlabel1.Caption :=fieldbyname('TOP_1').asstring ;
      QRlabel2.Caption :=fieldbyname('TOP_2').asstring ;
    end ;
      quickrep1.preview ;
end;

이렇게 원하는 값은 뿌려지는데 세로 출력에서 90도로 회전 시키는 게
문제거든요 ㅠㅠ 살려주세요