TOPIC:

...
implementation
uses PythonEngine;

procedure TForm1.Button2Click(Sender: TObject);
var
  py:TPythonEngine;
  p:PPyObject;
  s:TStringList;
begin
  py := TPythonEngine.Create(nil);
  s:=TStringList.Create;
  try
    s.Add('class t1(object):');
    s.Add('  def test(self):');
    s.Add('    return 1');
    s.Add('t=t1()');
    py.InitScript.Text:=s.Text;
    py.Initialize;
    Memo1.Lines.Add(py.EvalStringAsStr('"test"'));
    Memo1.Lines.Add(py.EvalStringAsStr('t.test()'));
  finally
    py.Free;
    s.Free;
  end;
end;
...