procedure TFCANTest.dothingsassudo(cmds2exec : string);
var
AProcess : TProcess;
OutputLines : TStringList;
begin
OutputLines := TStringList.Create;
AProcess := TProcess.Create(nil);
AProcess.Executable := '/bin/sh';
AProcess.Parameters.Add('-c');
AProcess.Parameters.Add(cmds2exec);
AProcess.Options := AProcess.Options + [poWaitOnExit, poUsePipes];
AProcess.Execute;
OutputLines.LoadFromStream(Aprocess.Output);
if length(Outputlines.text)>0 then
FCANTest.mlog.lines.addstrings(Outputlines.text);
OutputLines.LoadFromStream(AProcess.Stderr);
if length(Outputlines.text)>0 then
FCANTest.mlog.lines.addstrings(Outputlines.text);
AProcess.Free;
OutputLines.Free;
end;