procedure Memo1OnPrint;
begin
  memo1.lines.text := GetTuoteTxt( Tilaukset['Tuote'], 'KUVAUS');
end;

If Tilaukset['Veloitustapa']=0
   then Value := '-';
If Tilaukset['Veloitustapa']=1
   then Value := 'Laskutus / ' + MaksuEhto['Nimi'];
If Tilaukset['Veloitustapa']=2
   then Value := 'Tili';
If Tilaukset['Veloitustapa']=3
   then Value := 'Kassa';
If Tilaukset['Veloitustapa']=4
   then Value := 'Verkkopankki';
If Tilaukset['Veloitustapa']=5
   then Value := 'Luottokortti';
If Tilaukset['Veloitustapa']=6
   then Value := 'Postiennakko';
If Tilaukset['Veloitustapa']=7
   then Value := 'Tilisiirto';
If Tilaukset['Veloitustapa']=8
   then Value := 'Suomen Verkkomaksu';
If Tilaukset['Veloitustapa']=9
   then Value := 'Bussiennakko';
If Tilaukset['Veloitustapa']=10
   then Value := 'Lindorff lasku';
If Tilaukset['Veloitustapa']=11
   then Value := 'Klarna lasku';
If Tilaukset['Veloitustapa']=12
   then Value := 'Klarna tili';