function QuotedStr(const S: string): string;
EditQuote.text := QuotedStr('TEST'); //Gibt den Stringwert TEST als 'TEST' aus