SaveFont:= TFont.Create;
SaveFont.Assign(CV.Font);
GetObject(SaveFont.Handle, sizeof(TLogFont), @LogFont);
with LogFont do
begin
lfEscapement := angle *10;
lfPitchAndFamily := FIXED_PITCH or FF_DONTCARE;
lfQuality := PROOF_QUALITY;
lfHeight:=SaveFont.Height;
end;
CV.Font.Handle := CreateFontIndirect(LogFont);
CV.TextOut(x-SaveFont.Height, y, sText);
SaveFont.Free;